use strict;
use warnings;

my @pairs = map {[$_]} split  ' ', 'A G C T G G G G A C T T T A G C';
my @nums = split ' ', '34 23 43 45 34 43 45 7 45 43 12 34 32 56 43 67';

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

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