#!/usr/bin/perl
use strict;
use warnings;

my @array = (12, 6, 2, 9, 15);

for my $i (0 .. $#array) {
    for my $j ($i + 1 .. $#array) {
        @array[$j, $i] = @array[$i, $j] if $array[$j] < $array[$i];
    }
}

print "array : @array \n";