Select Code to Download

print
   map  { qq{$_ matches. It's values are $csahash{$_} and $cathhash{$_
+}\n} }
   grep { exists $cathhash{$_} }
   keys %csahash;