c:\@Work\Perl\monks>perl -wMstrict -le
"sub S ($) { return $_[0] + print 0+@{$_[0]}, ' elements in ', 0+$_[0]; }
 ;;
 print S [], S [42], 33;
"
0 elements in 7450732
1 elements in 30219348
74507333021934933