perl -e 'sub foo {@a=(1,2,4);return @a};
$bar=foo();
print "bar is $bar\n";'

bar is 3