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