[Ardenen]

Во первых не break, а last, во вторых такое лучше сделать grep'ом:

Код:

my $found_key = (grep { $hash{$_}{'old'} eq 120 } (keys %hash))[0];