% perl -le '$b=[1..4]; $#a=$b; print $#a->[2]'
3

% perl -le '$b=\"foo"; $#a=$b; print ${$#a}'
foo

% perl -le '$b={foo=>1}; $#a=$b; print keys %{$#a}'
foo