@ICE = (
    "30F-WKS\t`1781183799.xxxx1'\tIC---;",
    "30F-WKS\t`1781183799.xxx11'\tIC---;",
    "ADM34A3F9\t`1781183799.41455'\tIC---;",
);

##</code><code>##

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