Select Code to Download

#!/usr/bin/perl
use warnings;
...

use Data::Dumper;
print Dumper \%needles;

$ ./973643.pl 'AAAAA AAACACA CAACAAA' AAA AAC ACA CAA
$VAR1 = {
...
          'CAA' => 2,
          'AAA' => 5
        };