Select Code to Download

   my $h = {};
   tie %$h, "MyTie";
   $h->{KEY} = [];
   push(@{$h->{KEY}}, (qw/foo bar/));  # THIS FAILS

   push(@{my $x = $h->{KEY}}, (qw/foo bar/));  # THIS WORKS!

  sub TIEHASH
  {
...

      return $self;
  }