Perl Data Structure - Non unique values

I have the perl data structure and what i need to do is find all values in
@{$extractColumns{'2'}{'D'}} which are not there in @{$extractColumns{'2'}{'M'}} but seems like i need to put a flag somewhere and i messed up

foreach my $order (keys %extractColumns)
{
        foreach my $value (@{$extractColumns{'2'}{'D'}})
        {
                foreach my $detValue (@{$extractColumns{'2'}{'M'}})
                        {
                                chomp($value);
                                chomp($detValue);
                                if ( $value eq $detValue )
                                {      
                                        print "Found\n";
                                }
                                else
                                {
                                    print "Not Found\n";                             
                                }
                        }
                }
        }

---------- Post updated 04-08-10 at 08:45 AM ---------- Previous update was 04-07-10 at 06:37 PM ----------

Anyone ?

print Dumper(@{$extractColumns{'2'}{'D'}})

and
print Dumper(@{$extractColumns{'2'}{'M'}}

and see the values

Alternatively if you can paste the data or output it would be helpful

Its has a scalar values in it.