ตัวอย่างการสร้าง sub Minimum() เพื่อหาค่าต่ำสุด

#!usr/bin/perl
sub Minimum {
	my ($arr) = @_;

	return 0 if ($#arr < 0);
	$min = $arr[0];

	for ($i = 1; $i <= $#arr; $i++) {
		if ($arr[$i] < $min) {
			$min = $arr[$i];
		}
	}
	return $min;
}

ตัวอย่างการเรียกใช้ sub Minimum()

#!usr/bin/perl
@arr = (5, 2, 1, 3, 10, 4);
print &Minimum(@arr);
# แสดงผล: 1