Select Code to Download

foreach my $key (keys %csahash) {
    if(defined $cathhash{$key}) {
        print "$key matches. It's values are $csahash{$key} and $cathh
+ash{$key}\n";
    }
}

map { print "$_ matches. It's values are $csahash{$_} and $cathhash{$_
+}\n" if(defined $cathhash{$_}) } keys %csahash;