for (...) { ... push @forkArray, [ $level, $writeCounter, $nextMerge ]; } foreach (@forkArray) { my ($level, $mergeLast, $mergeFirst) = $@_; ... }