Select Code to Download

#!/usr/bin/perl
use 5.010;
use strict;
...
    print if $seen{$gene};
}
close HFR or die "Unable to close $hfr because $!";

my %seen;
print grep $seen{$_}++, <>;