Select Code to Download

knoppix@Microknoppix:~/perl/Monks$ head -99 spw961600_seq*
==> spw961600_seqA <==
...
==> spw961600_seqB <==
CTGCGTTTCGACGCCATGGCTGAGCTGGAGACGGTCCTGCCCATGCTGCTC
knoppix@Microknoppix:~/perl/Monks$

use strict;
use warnings;
...
}

print Data::Dumper->Dumpxs( [ \ %counts ], [ qw{ *counts } ] );

%counts = (
            'spw961600_seqB' => {
...
                          'GT' => 4
                        }
          );