foreach my $a(@bar) {
my $foo = &return_something($a);
}

##</code><code>##

($v1, $v2, $vX) = (0, 0, 0);