ตัวอย่างการเขียน sub ในการเรียงค่าอะเรย์แบบ BubbleSort()

#!usr/bin/perl

sub BubbleSort {
	my ($sortby, @arr) = @_;

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

		}
	} else {
		for ($i = 0; $i < $#arr; $i++) {
			for ($j = 0; $j < $#arr; $j++) {
				if ($arr[$j] > $arr[$j+1]) {
					$tmp = $arr[$j+1];
					$arr[$j+1] = $arr[$j];
					$arr[$j] = $tmp;
				}
			}

		}
	}

	return @arr;
}

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

<?php
#!usr/bin/perl
@arr = (2, 5, 1, 3, 4, 8, 10);
@arr = &BubbleSort("asc", @arr);
print @arr ;
print "\n";

@arr = &BubbleSort("desc", @arr);
print @arr;
?>