List::Utillをつかう

use List::Util qw(first max maxstr min minstr reduce shuffle sum);

からの
メソッド説明

max/maxsr

$i = max(1..9);
$w = maxstr(a..e);

• • • • • • • -

print後
$i = 9,
$w = e,

min/minstr

$i = min(1..9);
$w = minstr(a..e);

• • • • • • • -

print後
$i = 1;
$w = miar

first 条件一致した中で、一番最初に一致したもの。