Select Code to Download

1 while (wait > 0);

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

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