my @lines = qw (foo bar qux);
my $final_line = "";

   foreach $line(@lines) {
       $final_line .= $line." ";

    }

print "$final_line\n"; #include linebreak (\n) here