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