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

##</code><code>##

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

##</code><code>##

  sub TIEHASH
  {
      my $class = shift;

      my $self = bless({HASH_DATA => {}}, $class);

      return $self;
  }