for my $i ( 0..2 ) {
    for my $j ( 0..2 ) {
        ...
    }
}