my @a = (1, 2, 3); add(@a); sub add { for (@_) { $_++; } }