use strict;
use warnings;
our %hash = ( 1=> 2, 3=>4 );

sub find_2{
	while (my ($key,$val) = each(%hash)) {
		return "The key for 2 is $key\n"  if $val == 2;
	}
	die "could not find 2";
}

print find_2;
print find_2;