#! /usr/bin/perl

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

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