Select Code to Download

my @array = (1,2,3,4,5,6,7);
print "scalar co
...
my $arrayref = [1,2,3,4,5,6];

print "arrayref last index - $#$arrayref\n";

print "array scalar context - ".@array."\n";
print "arrayref scalar context - ".@$arrayref."\n";