samtregar appears to have hit the nail on the head above. I just wanted to point out that there's no need for a loop. These lines:

my @phonelist = <PB>;
# ...
my @name = <NL>;
[download]

read the entire contents of the files into the respective variables. If the diagnosis above is correct, you can get rid of your outermost loop also.