(
    'key2' => 'bar',
    'key1' => 'foo',
    'not_a_key' => undef,
)

##</code><code>##

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