#Permutation loop

my @n;
my $n = 1;
my %Image_info;

## Sort the data into a new hash.

while (<>)  {
    split /,/;
        $Image_info{$_[0]} = {
            latmin => $_[1],	    
            latmax => $_[2],
            lonmin => $_[3],
            lonmax => $_[4],
        };
};

## Redifine the hash elements as scalars and begin comparison loop.

for (keys %Image_info) { 
    my $latmin1 = $Image_info{$_} -> {latmin};
    my $latmax1 = $Image_info{$_} -> {latmax};
    while ($n < 11)  {
        my $latmin2 = $Image_info{$n} -> {latmin};
        my $latmax2 = $Image_info{$n} -> {latmax};       
        if ($latmin1 > $latmin2) {
            print $latmin2, " is less than ", $latmin1, ".\n";
        };
    $n = $n +1;
    };
}