Select Code to Download

my $foo = sub { return (4,5,8) };

...
# array context, sort of
$bar = () = &$foo;
print "Bar=$bar\n";