no if $] >= 5.018, "experimental::smartmatch"; #disable warnings
while (my ($key, $value) = each %hash) {
       push @new_array, $key if ($value ~~ @array);
   }

__END__

$VAR1 = [
          '2',
          '1'
        ];