#! /usr/bin/perl

use strict;
use warnings;

my %hashs = (
    'key_a' => 1,
    'key_b' => 0,
    'key_c' => 5,
    'key_d' => 2,
    'key_e' => 4,
);

foreach my $key ( sort keys %hashs ) {
    if ( $hashs{$key} > 1 ) {
        print "$key -> $hash{$key} is greater than 1\n";
    }
    else {
        print "$key -> $hash{$key} is less than or equal to 1\n";
    }
}

##</code><code>##

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