my( @coordinates_sorted ) =
    map{ 
        sprintf "((%2.1f %2.1f) (%2.1f %2.1f))\n", @{$_} 
    }
    sort {
            $a->[1] <=> $b->[1]
        or  $a->[2] <=> $b->[2]
        or  $a->[0] <=> $b->[0]
        or  $a->[3] <=> $b->[3]
    }
    map{ 
        [ m/([\d.]+)/g ] 
    }
    <DATA>;

{
    local $, = "\n";
    print @coordinates_sorted;
}