Do not use in prod. Augmented due to boredom on an airplane - ran out of books to read and wanted to scare a nice fellow sitting to the right of me. Hey!

selection_sort.pl

#!/usr/bin/env perl

use 5.016;

use strict;
use warnings;


sub array_to_string($) {
	'[' . join(', ', @{$_[0]}) . '];';
}

# array, first_index, second_index;  (a, b) = (b, a);
sub swap($$$) {
	($_[0]->[$_[1]], $_[0]->[$_[2]]) = ($_[0]->[$_[2]], $_[0]->[$_[1]]);  # LOL
}

# array, startIndex;
sub index_of_min($$) {
	my $min_index = $_[1];
	my $min_value = $_[0]->[$min_index];

	for (my $i = $_[1] + 1; $i < scalar(@{$_[0]}); $i++) {
		if ($min_value > $_[0]->[$i]) {
			$min_value = $_[0]->[$i];
			$min_index = $i;
		};
	}

	return $min_index;
}

sub selection_sort($) {
	for (my $i = 0; $i < scalar(@{$_[0]}); $i++) {
		swap $_[0], $i, index_of_min $_[0], $i;
	}
}


my $array = [1, 2, 3, 0, 2, 3];

say "before: " . array_to_string $array;
selection_sort $array;
say "after:  " . array_to_string $array;  # [0, 1, 2, 2, 3, 3];

say "-------";

$array = [22, 11, 99, 88, 9, 7, 42];
say "before: " . array_to_string $array;
selection_sort $array;
say "after:  " . array_to_string $array;  # [7, 9, 11, 22, 42, 88, 99]