Help for this page

Select Code to Download


  1. or download this
    1 while (wait > 0);
    
  2. or download this
    for (my $index = 0; $index < @smokearr; ++$index) { #...
    
  3. or download this
    foreach my $item (@smokearr) {
       # ... use $item instead of $smokearr[$index] ...
    }