#!perl -w

use strict;

my %h = (
             NAME1 => 'Kaimi',
             NAME2 => '$p01nt', 
             NAME3 => 'ZET36',
        );

my $s_h = '$p01nt';

foreach ( keys %h )
{
     exit print "Key name : '$_'" if $h{$_} eq $s_h; 
}
print 'Not Found';