#!/usr/local/bin/perl

# This program uses a very dumb sorting algorithm.
@list = (41, 26, 11, 9, 8);    # sample list to sort
for ($outer = 0; $outer < @list; $outer++) {
        for ($inner = 0; $inner < @list; $inner++) {
                if ($list[$inner] > $list[$inner+1]) {
                        $x = splice (@list, $inner, 1);
                        splice (@list, $inner+1, 0, $x);
                }
        }
}
