Help for this page
c:\@Work\Perl>perl -wMstrict -MData::Dump -le "my $line = ... AAAATTTTCCCCGGGGAAAGG => 1, TTTTAAAACCCCGGGGAAAGG => 1, }