foreach my $line (@lines) {

                        $line = $_;