Select Code to Download

use strict;
use warnings;
...
    print "$n $i \t $rect_x[$i] $rect_y[$i]  \n";
        ++$n;
}

$ perl lowest_sort.pl 
0 2       4 0  
...
9 3       0 1  
10 10     0 2  
11 7      0 3