perl pm_gene_uninit.pl #### #say qq(DEBUG: Line = "$line"); #### #my $file = "BSAC.pl"; ... #open my $in, "<", "$file"; #open my $out, ">", "output.txt"; #### say $out "Coordinate No of Strains AA Change"; ... while ( my $line = <$in> ) { ... printf $out "%-12.12s %-15.15s %s\n", $SNP, $count, $change; #### say "Coordinate No of Strains AA Change"; ... while ( my $line = ) { ... printf "%-12.12s %-15.15s %s\n", $SNP, $count, $change;