[Perl] 최댓값과 최솟값 구하기

@list = (10, 20, 30, 40, 50);
$max = @list[0];
$min = @list[0];

foreach $a (@list)
{
	if ($a < $min)
	{
		$min = $a;
	}
	
	if ($a > $max)
	{
		$max = $a;
	}
}

print ("min $min max $max");

// 마무리는 ctrl+D

 

마무리로는 ctrl + D를 눌러준다. min10 max 50이 정상적으로 출력된다.