foreach my $G (@Genes){
    for my $x (0 .. $#ptt){
        if ($ptt[$x] =~ /$G/){
            push(@Coordinates,"$ptt[$x]");
            print "$ptt[$x]\n";
        }
    }
}