for my $key (keys %mactobp) { 
    if (exists $bptoifIndex{ $mactobp{ $key } }) { 
        $mactobp{ $key } = $bptoifIndex{ $mactobp{ $key } };
    } 
}