open(IN, "<$file") or die "Cannot open file $file\n";
my @lines = <IN>;

foreach $1 (@lines){
    chomp($1);
    my %columns = split(">", $1);
}

close(IN);

##</code><code>##

foreach (@lines){
    chomp;
    my %columns = split(">");
}

##</code><code>##

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