my @bigArr = (); foreach my $record ( @dataArr ) { foreach my $line ( &ParseRecur($record->[3], $base, $start, $stop) ) { push(@bigArr, [ @$record[0, 1, 2], $line, @$record[4] ]); } }