I have used the following code:
my @ICEU; 
my %seen;

my @ICEU = grep { !$seen{$_->[0]}++ } @ICE;

print Dumper \%seen;

The output I am getting is:-

$VAR1 = {
          '' => 1218
        };