Select Code to Download

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

sub foo{
     my $bar = shift;
...
}

my( $a, $b ) = foo( 'bar' );