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


##</code><code>##

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


##</code><code>##

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