perl -le 'sub foo { 7,2,3 } $foo = foo(); print $foo' 3