Select Code to Download

#!/usr/bin/env perl -l

...
    ++$snp;
    print "SNP $snp is the $base1 --> $base2 at position $pos";
}

SNP 1 is the T --> C at position 2
SNP 2 is the T --> G at position 6