in reply to Extraction of List of Coordinates

Yet another way to get the canonical coordinate spec: 
my ($num1x, $num2x) = sort {$a <=> $b} ($1, $3);
my ($num1y, $num2y) = sort {$a <=> $b} ($2, $4);

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom