Select Code to Download

#!/usr/bin/perl
use strict;
...
  ++$min if $min < @try && $try[$min] < $n;
  splice @try, $min, 0, $n;
}