Select Code to Download

$ cat bozosort.pl
#!/usr/bin/perl
...
    next if grep { $list[$idx] > $_ } @list;
    say splice @list, $idx, 1;
}

$ perl bozosort.pl
0
...
6
7
9