my @a = qw( 1 2 3 );
print $#a + 1, $/;
my $a = \@a;
print $a + 1, $/;