Я провёл тестирование и наткнулся на интересный момент. Простой перебор хеша с помощью each можно ускорить на 12-15% Запись, которую обычно используют: while(my($key, $value) = each %hash) { } Полностью аналогичная запись:

{ &nbsp;&nbsp;&nbsp; my($key, $value); &nbsp;&nbsp;&nbsp; while(($key, $value) = each %hash) &nbsp;&nbsp;&nbsp; { &nbsp;&nbsp;&nbsp; } } во втором случае мы получаем прирост производительности оставляя при этом туже область видимости, что и в первом.