open my $fh, '>', "output.txt" or die "Cannot open output.txt: $!";

foreach (@lines) {
    print $fh "$_\n";
}
close $fh or warn "Not able to close output.txt: $!";