for (1..2) { my $test[b]$_[/b] = (); }