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

print $#$a + 1, $/;             # 3
print $a, $/;                   # ARRAY(0x1ab272c)
printf "0x%x == %d$/", $a, $a;  # 0x1ab272c == 27993900


##</code><code>##

This is perl, v5.6.1 built for MSWin32-x86-multi-thread