Select Code to Download

foreack $k (keys %$hash) {
    print "$k => $hash->{$k}\n";
    print "$k => $$hash{$k}\n";   # equivalent
}