my @ICEU = map { $_->[1] } grep { !$seen{$_->[0]}++ } map { [ (split /\t/, $_)[0], $_ ] } @ICE;