say "Coordinate   No of Strains   AA Change";
...
while ( my $line = <DATA> ) {
...
printf "%-12.12s %-15.15s %s\n",  $SNP, $count, $change;