my $mess = [ 5, 7, 9, 1, 1, 4, 3, 6, 8, 2 ]; 
	
for(my $i=0;$i < @$mess;$i++) { 
   for(my $j = $i + 1;$j < @$mess;$j++) { 
     if($mess->[$i] > $mess->[$j]) { 
	    my $t = $mess->[$j];
		$mess->[$j] = $mess->[$i]; 
		$mess->[$i] = $t;
	 } 
  }
}