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