use strict;
use warnings;
use Data::Dumper;
sub mypush(\@@) { push @{ shift; }, @_ }
my %hash;
mypush @{ $hash{key} }, "Hello", "World";
print Dumper \%hash;