Select Code to Download

     while (($bp2, $ifIndex) = each (%bptoifIndex)) {
         print "$bp2\n"; # testing tool
...
            $mactobp{$mac} = $ifIndex;
            print "$mac matches with $ifIndex.\n";
        }

     if (exists $bptoifIndex{$bp}) {
        $mactobp{$mac} = $bptoifIndex{$bp};
...
     } else {
        warn "$mac / $bp does not have an entry in %bptoifIndex\n";
     }

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/