note stephen Here's an attempt at a more elegant approach. I can't test it without sample data. <CODE> foreach my $record ( @dataArr ) { my (@date) = &ParseRecur($record->[3], $base, $start, $stop); foreach my $line (@date) { @bigArr = ( @$record[0, 1, 2], $line, @$record[4] ); } } </CODE> You might want to put it into a subroutine, and have it return @bigArr... not sure where that's being dealt with... <P> stephen </P> 64747 64747