Different key in 2 hashes

[Mark Martin]

Hi,
okay  - straight out of the coobook :
my @different = ()
foreach (keys %hash1)
{
  delete $hash1{$_} unless exists $hash2$_};
  push(@this_not_that,$_) unless exists $registered{$_};
}
easy to remove the different key from hash one and record the removed item 
in @different.

My question is how would you record the removed item in another hash so 
that it has the original key and corresponding value?

I've tried :
%different = ();
foreach $key (keys %hash1)
{
  $value = $hash1{$key};
  @different{$_} = $value unless exists $hash2{$_};
}
but I get all sorts of rubbish
Cheers,
Mark
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>