my %HASH = ('Key' => 1,'Other' => 0 , 'Nothing' => 3);

while (my ($key,$value) = each %HASH) {
        if($value > 1){
                print "Found Key : $key with a value : $value \n";
                }
}