BubbleSort

gistfile1.txt

#!/usr/bin/env perl
use 5.16.2;
use strict;
use warnings;
use utf8;
use String::Random qw/random_regex/;
use Test::More;

for(1..20){
    my $i = [map{0 + random_regex '\d{3}'}1..150];

    my $s = 1;
    while($s){
        $s = 0;
        for(0..@$i - 2){
            if($i->[$_] > $i->[$_ + 1]){
                @$i[$_ , $_ + 1] = @$i[$_ + 1 , $_];
                $s = 1
            } 
        }
    }
    
    is_deeply [sort {$a <=> $b}@$i] , $i;
}
done_testing;