Select Code to Download

use strict;
use warnings;
...
}

print "$_ => $sequences{$_}", "\n" for keys %sequences;

- => 406
A => 1708
T => 1639
C => 2057
G => 1946