Select Code to Download

#! perl -slw
use strict;
...
        pop @modified;
    }
}

while ( @points ) {
    if (($points[0][0] > $modified[-1][0])^($points[0][1] < $modified[
+-1][1])) {
...
        pop @modified;
    }
}

while ( @points ) {
    if (($points[0][0]-$modified[-1][0])/($points[0][1]-$modified[-1][
+1]) > 0) {
...
                        ]
    }
}