Select Code to Download

for my $current (@genes) {
    if (grep { $_ eq $current } @gl) {
         print $current;
    }
}