my @lines=qw(this that the other);
    my $result='';
    map { $result .= $_ ."\n" } @lines;