Help for this page
$ cat bozosort.pl #!/usr/bin/perl ... next if grep { $list[$idx] > $_ } @list; say splice @list, $idx, 1; }
$ perl bozosort.pl 0 ... 6 7 9