@{$self->{container}} share question

[David Shapiro]

This may have been beaten with a dead horse, but can anybody help with
this?

package test;

use strict;
use threads;
use threads:shared;

sub new {
   my $class = shift;
   $class = ref($class);
   my $self = {};
   # doesn't like the following in a shared scenario
   @{$self->{container}} = ();   
   bless $self, $class;
   return $self;
}

sub push : locked method {
   my $self = shift;
   my @stuff = ();
   @stuff = @_;
   if (scalar @stuff > 0) {
      # whines about the @{$self->{container}} and sharing here.  Why?
      push(@{$self->{container}},@stuff);    
   }
}
1;