Select Code to Download

sub test_noproto   {print shift;};
sub test_proto ($) {print shift;};
...
test_proto($scalar);   # gives as expected: A
test_proto(@array);    # gives:             3   Did you expect that?
test_proto(%hash);     # gives:             1/8 Did you expect that?