Help for this page
my @ICE = map { [ split /\s*\(tab\)\s*/ ] } <DATA>; my %seen; ... 30F-WKS(tab)`1781183799.xxxx1' (tab) IC---; 30F-WKS (tab) `1781183799.xxx11' (tab) IC---; ADM34A3F9 (tab) `1781183799.41455' (tab) IC---;
$VAR1 = [ [ ... 'ADM34A3F9' => 1, '30F-WKS' => 2 };