use strict;
use warnings;

my @a = (1..100);
my $aref = \@a;

print @aref->[0];