my $arrayref = ...; for my $i (0 .. $#$arrayref) { for my $j (0 .. $#$arrayref) { do_something_with($i, $j); } }