Select Code to Download

#!/usr/bin/perl -w
use strict;
...

        return %filtered_hoa;
}

my %filtered_hash = (
 'GTGATCTTAGGACAAGGATAGAAATTAA' => ['1','184',7,'GACAAGG'],
...
 'CAACATGCGATTACGATTACGAGTGGCG' => ['1','240',13,'GATTACG','GATTACG'],
 'ATGCGATTACGATTACGAGTGGCGCTCG' => ['1','244',20,'GATTACG','GATTACG','
+GCGCTCG'],
);