I was thinking about doing it like this to avoid the grep:

   sub Match{foreach (@keys) {return 1 if exists $hash{$_};}return 0}
   if ( Match  )
   {
     print "yep\n";
   } else {
     print "nope\n";
   };
[download]

But I was thinking about that already before I thought of
the slice ;))