Select Code to Download

#!/usr/bin/perl
use strict;
...
        print "$locus ", $key, " = ", $LOCI{$locus}{$key}, "\n";
    }
}