Select Code to Download

use strict;

...
my $ar0b = \$array[0];

print "$ar0a :: $ar0b\n";  # will stringify memory address

my $i = 0;
$array[$i++] = $_ for ( 5, 6, 7, 8 );