use strict;
use warnings;

my @alphas = 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';

my @keep = grep $nums[$_]>=10, 0..$#nums;

print( join( ' ', @alphas[ @keep ] ), "\n" );
print( join( ' ', @nums  [ @keep ] ), "\n" );