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