Select Code to Download

my @array = ( 1, 2, 3 );
my $aref = \@array;

my @array = ( 1, 2, 3 );
my $aref = [ @array ];

foreach my $key ( keys %hash ) { ........ }