Select Code to Download

#!/usr/local/bin/perl
use strict;
use warnings;
%h=('1', 'one', '2', 'two', '3', 'three');

@arr=(1,2);

foreach $key(keys %h)
{
push(@arr,$h{$key});
}
print @arr;

foreach $key(keys %h)
{
push(@arr,$$h{$key});

print "@arr\n";
}

push @arr, $href->{$key};