for (my $count=0; $count <= $#dataArr; $count++) { my (@date) = &ParseRecur($dataArr[$count][3], $base, $start, $stop); foreach my $line (@date) { $bigArr[0 .. 2] = $dataArr[$count][0 .. 2]; $bigArr[3] = $line; $bigArr[4] = $dataArr[$count][4]; } }