Help for this page

Select Code to Download

Select or download this

  DB<116> $index{"A","a"}=1
 => 1
...

  DB<124> grep { my ($k1,$k2) = split /$;/,$_; $set1{$k1} and $set2{$k
+2} } keys %index  
 => "A\34a"