$ perl -we'print uc 1, 2'
12

$ perl -we'sub myuc(;$) { $_[0]||$_ } print myuc 1, 2'
Too many arguments for main::myuc at -e line 1, at EOF