local

local EXPR На самом деле гораздо эффективнее использовать функцию my. Функция local делает перечисленные переменные локальными в блоке, подпрограмме, eval или do. Если переменных более, чем одна, то они должны объединяться скобками.

  sub RANGEVAL{
       local($min,$max,$thunk) = @_;
       local $result = '';
       local $i;
       for ($i = $min; $i < $max; $i++) {
           $result = eval $thunk;
       }
       $result;
   }