%MappingOfRecords = 
    map { $_%2 ? () : ($ListOfRecords[$_+1] => $ListOfRecords[$_]) } 
    (0..$#ListOfRecords);