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 } } }