@list = (10, 20, 30, 40, 50); $max = @list[0]; $min = @list[0]; foreach $a (@list) { if ($a $max) { $max = $a; } } print ("min $min max $max"); // 마무리는 ctrl+D 마무리로는 ctrl + D를 눌러준다. min10 max 50이 정상적으로 출력된다.