for ($additional, @tied) { } map f(), @tied say "@tied"; ...