@a2 = @h1{grep exists $h1{$_}, @a1};