for (my $i = 0; $i < scalar(@array); $i++) {
    for (my $j = $i; $j < scalar(@array); $j++) {
        foreach my $value (@{$hash{$array[$i]}{$array[$j]}}){
            # do great deeds
            }
        }
    }

##</code><code>##

for (my $i = 0; $i < scalar(@array); $i++) {
    for (my $j = $i; $j < scalar(@array); $j++) {
        foreach my $value (@{$hash{$array[$i]}{$array[$j]}}) {
            next();
            # do great deeds
            }
        }
    }

##</code><code>##

for (my $i = 0; $i < scalar(@array); $i++) {
    for (my $j = $i; $j < scalar(@array); $j++) {
        next();
        foreach my $value (@{$hash{$array[$i]}{$array[$j]}}) {
            # do great deeds
            }
        }
    }