sub foo ($$) { print "@_\n"; } foo(1,2,3); >>> Too many arguments for main::foo at ... #### ($_='jjjuuusssttt annootthheer pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;