1 while (wait > 0);

##</code><code>##

for (my $index = 0; $index < @smokearr; ++$index) { #...

##</code><code>##

foreach my $item (@smokearr) {
   # ... use $item instead of $smokearr[$index] ...
}