use strict;
sub foo ($) {return shift}
sub foo2 ($$) {return $_[0]+$_[1]}
sub foo3 () {100}
my @bax=(10,20);
print  join "\n",foo 20,3, foo2 10,20;
print "\n";
print foo3;
print "\n";
print eval (foo2 @bax,1);
print "\n";