for (my $dx = 0; $dx < @ListOfRecords; $dx += 2)
		{
			$MappingOfRecords { $ListOfRecords[1 + $dx] } = $ListOfRecords[$dx];
		}