use strict;

my @array = ( 1, 2, 3, 4 );
print \@array,$/;
my $ar0a = \$array[0];

@array = ( 5, 6, 7, 8 );
print \@array,$/;
my $ar0b = \$array[0];

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