sub bubble {
    my @array = @_;
    for my $i (0..$#array) {
        for my $j (0..$i) {
            @array[$i, $j] = @array[$j, $i]
                if $array[$i] < $array[$j];
        }
    }
    return @array;
}