##
#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;