ตัวอย่างการสร้าง Sub เพื่อหาค่าสูงสุด (Maximum) ของอะเรย์

#!usr/bin/perl
sub Maximum {
	my ($arr) = @_;
	$max = 0;
	for ($i = 0; $i <= $#arr; $i++) {
		if ($arr[$i] > $max) {
			$max = $arr[$i];
		}
	}
	return $max;
}

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

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