my @array = (1,2,3,4,5,6,7);
print "scalar co
print "array last index - $#array\n";

my $arrayref = [1,2,3,4,5,6];

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