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

# evaluate in (too-short) list context:
my ($bar) = &$foo;
print "Bar=$bar\n";

# evaluate in scalar context:
$bar = &$foo;
print "Bar=$bar\n";

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