Select Code to Download

Priority:   3rd 1st  2nd  4th
          ((1.0 0.1)(99.0 0.2))

my @coordinates_unsorted;

...
    printf "((%2.1f %2.1f) (%2.1f %2.1f))\n", @{$coordinate_ref};
}

my( @coordinates_sorted ) =
    map{ 
...
    local $, = "\n";
    print @coordinates_sorted;
}