http://www.perlmonks.org?node_id=525008


in reply to pulling duplicate data from a complex structure

Greetings,
Though I would suggest strongly that you consider using a hash, here is something you can do after your pushes to de-dup your data.
Leave out the unless, since that works fine, and run the following after.
my @non_duplicates = do{ #lets use a hash since we want unique values #and localize it so its a fresh copy local %_; #undef the values of this localized hash #while assigning your values as keys undef @_{@{$map{$$row[1]}{$$row[2]}}}; #call keys on the hash to get a list of your #unique values keys %_; } #assign our unique list back to your original structure. $map{$$row[1]}{$$row[2]} = \@non_duplicates;
Hope that helps

-InjunJoel
"I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo