#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;


my @unsorted = map {int (1000 * rand ())} (1..100);
my @sorted = sort_try (@unsorted);
print Dumper \ @sorted;

sub sort_try {
my $i = 0;
while ($i < $#unsorted) {
    

    if ($unsorted[$i] > $unsorted[$i+1]) {
        @unsorted[$i, $i+1] = @unsorted[$i+1, $i];
        --$i if $i;

    } else {
        ++$i;
    }
}  return @unsorted;
 
   }