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