Help for this page

Select Code to Download

Select or download this

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

Select or download this

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