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

output:
[1]