Select Code to Download

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

% perl -le '$b=[1..4]; $#a=$b; print @{$#a}; push @$b, 5; print @{$#a}
+'
1234
12345

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

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

% perl -le 'sub foo{"foo"} $b=bless[]; $#a=$b; print $#a->foo'
Can't call method "foo" without a package or object reference at -e li
+ne 1.

% perl -le '$b=[1..4]; $#a=$b; print ref $#a'
[nothing]

% perl -le '$b=[1..4]; $#a=$b; $x=$#a; print @$x'
[nothing]

% perl -le '$b=[1..4]; $#a=$b; $x=$#a; print @{$#a}' 
[nothing]

#/usr/bin/perl -l
my@a=qw[just another perl hacker];$#a=\@a;
print "@{$#{$#{$#{$#{$#{$#{$#{$#a}}}}}}}}"