Select Code to Download

#! perl -slw
use strict;
...
$sortedN[ $_ ] > $sortedN[ $_ + 1 ] 
    and die "Error: $_ : $sortedN[ $_ ] > $sortedN[ $_ + 1 ]"
    for 0 .. $#sortedN - 1;