$ perl -E '
    for ("a" .. "b") {
        for my $i (1 .. 2) {
            say "\$_[$_] \$i[$i]";
        }
    }
'
$_[a] $i[1]
$_[a] $i[2]
$_[b] $i[1]
$_[b] $i[2]