Hi try this,

#! /usr/bin/perl

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

map { $HASH{$_} > 1 ? print $_ : '' } keys(%HASH);
[download]

output : Nothing