$mactobp{ $_ } = $bptoifIndex{ $mactobp{ $_ } } for keys %mactobp;