Select Code to Download

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

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