use warnings; use strict; my @gene = qw( ATAD3B 83858 ATAD3A 55210 SSU72 29101 SLC35E2 9906 GNB1 2782 TMEM52 339456 GABRD 2563 ); my %gene = @gene;