Select Code to Download

use strict;
use warnings;
...
push @{$pairs[$_]}, $nums[$_] for 0 .. $#pairs;

print "$_->[0]: $_->[1], " for grep $_->[1] >= 10, @pairs;

A: 34, G: 23, C: 43, T: 45, G: 34, G: 43, G: 45, A: 45, C: 43, T: 12, 
+T: 34, T: 32, A: 56, G: 43, C: 67,