my @lines=foo('bar');
foreach my $line (@lines) {
 $a.=chomp $line ;
 $b*= getVa($line);# a parsing function
}

##</code><code>##

foreach my $line ( foo('bar') ) {
 $a.=chomp $line ;
 $b*= getVa($line);#a parsing function

}