sub foo ($$) { print "@_\n"; } foo(1,2,3); >>> Too many arguments for main::foo at ...