Select Code to Download

#! /usr/bin/perl

...
        print "$key -> $hash{$key} is less than or equal to 1\n";
    }
}

key_a -> 0 is less than or equal to 1
key_b -> 1 is less than or equal to 1
key_c -> 5 is greater than 1
key_d -> 2 is greater than 1
key_e -> 4 is greater than 1