ตัวอย่างการสร้าง Sub หรือฟังก์ชันในการเรียงลำดับสมาชิกอะเรย์แบบ Selection Sort

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

	$min = 0;
	if ($sortby eq "desc") {
		for ($i = 0; $i < $#arr; $i++) {
			$min = $i;
			for ($j = $i+1; $j <= $#arr; $j++) {
				$min = $j if ($arr[$j] > $arr[$min]);
			}
			$temp = $arr[$i];
			$arr[$i] = $arr[$min];
			$arr[$min] = $temp;
		}
	} else {
		for ($i = 0; $i < $#arr; $i++) {
			$min = $i;
			for ($j = $i+1; $j <= $#arr; $j++) {
				$min = $j if ($arr[$j] < $arr[$min]);
			}
			$temp = $arr[$i];
			$arr[$i] = $arr[$min];
			$arr[$min] = $temp;
		}
	}

	return @arr;
}

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

#!usr/bin/perl
@arr = (2, 3, 1, 5, 10, 7, 20);
@arr = &SelectionSort("asc", @arr);
print @arr;
print "\n";

@arr = &SelectionSort("desc", @arr);
print @arr;