foreach my $str (@lines){print $str, "\n"};