my ($num1x, $num2x) = sort {$a <=> $b} ($1, $3);
my ($num1y, $num2y) = sort {$a <=> $b} ($2, $4);