#!/usr/bin/perl
use strict;


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

my ($i,$j,$tmp);


for ($i=0;$i<@array;$i++){
	
	for ($j=0;$j<@array;$j++){
		
		
		if ($array[$j]>$array[$j+1]){
			
			$tmp=$array[$j+1];
			$array[$j+1]=$array[$j];
			$array[$j]=$tmp;
			
		}
		
	}
}



print "array : @array \n";