S
sln
use strict;
use warnings;
my @scalar_array = (0,1,2,3,4,5);
my @refs_array = ();
push @refs_array, $_ for \(@scalar_array);
print $_ for $(@refs_array);
__END__
use warnings;
my @scalar_array = (0,1,2,3,4,5);
my @refs_array = ();
push @refs_array, $_ for \(@scalar_array);
print $_ for $(@refs_array);
__END__