my @bar=foo();
print "@bar\n";

##</code><code>##

my $baz=scalar(@bar);