$pointer = $data->{ criteria }->{ $record };
undef $lookup->{ ( $counter - 1 } . '-' . $pointer } if( $counter > 1 );
$lookup->{ $counter . '-' . $pointer } = $pointer;