insert_sort

insert_sort.pl

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my @seeds;
for (1..100){
    push(@seeds, int(rand(100)));
}
p @seeds;

for my $i (1..(scalar @seeds - 1)){
    my $j = $i;
    while ($j > 0){
        if ($seeds[$j - 1] > $seeds[$j]){
            my $tmp = $seeds[$j - 1];
            $seeds[$j - 1] = $seeds[$j];
            $seeds[$j] = $tmp;
        } else {
            last;
        }
        $j--;
    }
}
 p @seeds;