my $sub = $hash1{$a} = $hash2{$b};
push @$sub, $a;