Select Code to Download

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

close(IN);

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

foreach my $G (@Genes){
    for my $x (0 .. $#ptt){
...
        }
    }
}