#!/usr/bin/env perl

use 5.012;
use warnings FATAL => 'all';

my @genes = (qw<one two three four>);
my @gl    = (qw<    two three      five six>);

my %gl; @gl{@gl} = undef; # Efficient lookups
say for grep { exists $gl{$_} } @genes;