my %current,%last,%keys;

foreach my $k (keys %current,keys %last) {
   next unless(exists $current{$k});
   $keys{$k} = 1;
}