open(PBXFILE, "c:\/gabi\/global_address.txt") || die "cannot open: $!";
while (<PBXFILE>) {
	chomp;
	{s/"//g
    }
    {s/,//g
    }
}

# Create a blacklist of numbers that do not map to a person
   @blacklistA = qw(
        601-4001 Disaster Recovery
        601-4066 Dial 
	601-4080 Business Line 
	601-4101 Eric  Forward
	601-4102 Jimmy  FWD
        601-4273 800 redirect
    );