perl -MDevel::Peek -le "$b=[1,2,3]; $#a=$b;Dump $b;Dump $#a"