>>51
sortじゃだめなん？
@sorted = sort @_;
$sorted[0]; # 最小値
$sorted[-1] # 最大値