$min = $list[0]; for my $i (1..$#list) { $min = $list[$i] if ($min > $list[$i]);};