Новый участник
Сообщения: 22 Благодарности: 3
Профиль | Отправить PM | Цитировать
my $found_key = (grep { $hash{$_}{'old'} eq 120 } (keys %hash))[0];
Отправлено: 14:43, 19-05-2017 | #4