Select Code to Download

# If your $key is *not* what we're looking for, remove i
+t from the hash
   if ( !grep ($key, @keysToKeep) )

  DB<137> 1 ~~ [1,2,3]
 => 1
...

  DB<140> "2" ~~ [1,2,3]
 => 1

  DB<145> %h=(a=>1,b=>2,c=>3)
 => ("a", 1, "b", 2, "c", 3)
...

  DB<148> \%h
 => { a => 1 }

  DB<153> %h=(a=>1,b=>2,c=>3)
 => ("a", 1, "b", 2, "c", 3)
...

  DB<157> \%h2
 => { a => 1, e => undef }