Help for this page
@ICE = ( "30F-WKS\t`1781183799.xxxx1'\tIC---;", "30F-WKS\t`1781183799.xxx11'\tIC---;", "ADM34A3F9\t`1781183799.41455'\tIC---;", );
my @ICEU = map { $_->[1] } grep { !$seen{$_->[0]}++ } map { [ (split / +\t/, $_)[0], $_ ] } @ICE;