Select Code to Download

my %h1 = (    "one"   => 1,
              "two"   => 2,
...
            "six"   => 6,
            "one"   => 2222,
            );  

$VAR1 = {
          'one' => [ 1, 2222 ]
...
          'five' => 5,
          'six' => 6,
        };

#!/usr/bin/perl -w

...
        push @{ $h1{$x} }, $h2{$x};
}
print Dumper (\%h1);

Can't use string ("1") as an ARRAY ref while "strict refs" in use at s
+lice_hash.pl line 48

$VAR1 = {
          'three' => 3,
...
                      4
                    ]
        };