Not only is this incomprehensible, but the ink is ugly and the paper is from the wrong kind of tree.

-- Professor, EECS, George Washington University

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

30F-WKS (tab) `1781183799.xxx11' (tab) IC---;

are strings with tab separated fields. If you want to make each string into an array and check for uniqueness of their first element, you have to split them and make anonymous arrays of the first element from each split return, along with the original string as the second element, grep the list of anonymous arrays for definedness in %seen (that part of your code is correct) and finally extract the second element (which is the original string) from each anonymous array grep returns:

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

Always use -w!

Your second declaration of @ICEU with my masks the first one.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

my @ICE = map { [ split /\s*\(tab\)\s*/ ] } <DATA>;
my %seen;

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

print Dumper \@ICE;
print Dumper \%seen;
__DATA__
30F-WKS(tab)`1781183799.xxxx1' (tab)     IC---;
30F-WKS  (tab)   `1781183799.xxx11'  (tab)    IC---;
ADM34A3F9  (tab) `1781183799.41455'  (tab)    IC---;
[download]

I get

$VAR1 = [
          [
            '30F-WKS',
            '`1781183799.xxxx1\'',
            'IC---;
'
          ],
          [
            '30F-WKS',
            '`1781183799.xxx11\'',
            'IC---;
'
          ],
          [
            'ADM34A3F9',
            '`1781183799.41455\'',
            'IC---;
'
          ]
        ];
$VAR1 = {
          'ADM34A3F9' => 1,
          '30F-WKS' => 2
        };
[download]

Which looks pretty much as it should, doesn't it?

It looks like Hercynium is right. @ICE doesn't contain what you think it does

What is different between this post and Array Difference for Two Dimentional Array! or Difference Between Two array or File Manipulation - Need Advise!? It's the same question, 3 more times. One of them is almost word for word. In fact, in that last post I've mentioned, the problem is practically solved for you.

You were given several solutions in reply to Remove Duplicates!! Please Help, for example see my post Re: Remove Duplicates!! Please Help.

-- Kirill

P.S. In your code you don't have an array of arrays, but a plain array of strings...

Hi Kirill, Thanks for the response. In My previous post the data was in a file. Now for this problem the data is in an array.

In My previous post the data was in a file. Now for this problem the data is in an array.

That doesn't matter. The answer to "How do I remove duplicates from a set of data?" is the same. You may have to transform your data into a form more amenable to this operation, but the techniques for removing duplicates are the same.

print Dumper \@ICEU;
[download]

Hi it only displays the first line:-

30F-WKS(tab)`1781183799.xxxx1' (tab)     IC---;
[download]

can you suggest anternate coding

Looks like the people in the posts below have the answer for you... your data isn't what you think it is, but it can be transformed pretty easily. :) Cheers!

Don't YELL!

All-uppercase is harder to read than mixed-case, and may be interpreted as being written by somebody who doesn't believe in proof-reading.

Advice? This is a very common problem; search through the monastery (check out the link on this page called "Super Search"). Many of the monks (including me) can be grouchy, and we react badly to questions which do not seem to have been well-thought out. And watch out for the English-usage nazis.

Seconded: Please do not yell in the monastery. Some of us are meditating.