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

##</code><code>##

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

##</code><code>##

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