Or maybe - just guessing as the others - you assignment to your $PhoneNumber is not doing what you expect

my $PhoneNumber = 000001;
print "[$PhoneNumber] \n";

output:
[1]
[download]

cheers

si_lence