#! perl -slw
use strict;
use enum qw[ IMAGENO MINLAT MAXLAT MINLON MAXLON ];

sub overlapLat {
    my( $a, $b ) = @_;
    return
        if $a->[MINLAT] > $b->[MAXLAT]
        or $a->[MAXLAT] < $b->[MINLAT];
    return 1;
}

sub overlapLon {
    my( $a, $b ) = @_;
    return
        if $a->[MINLON] > $b->[MAXLON]
        or $a->[MAXLON] < $b->[MINLON];
    return 1;
}

##discard header
<DATA>;

my @rects = map[ split ',' ], <DATA>;
my $m = 0;
for my $first ( 0 .. $#rects ) {
    for my $second ( $first + 1 .. $#rects ) {
        if( overlapLat( @rects[ $first, $second ] )
        and overlapLon( @rects[ $first, $second ] )
        ) {
            print "@{$rects[ $first ] } overlaps \n@{ $rects[ $second ] }";
        }
    }
}

__DATA__
"Image number","minlat","maxlat","minlon","maxlon"
1,0,30,20,50
2,10,30,70,90
3,70,80,40,50
4,40,70,20,50
5,20,75,40,80