my @lines = foo( 'bar' );
chomp @lines;
my $a = join '', @lines;
my $b; $b *= getVa( $_ ) for @lines;
undef @lines;