Numerical literal "010" is 8 decimal.

>perl -wle"$x = 010; print $x; print $x == 10 ?1:0"
8
0
[download]

String literal "'010'" is 10 decimal when treated as a number.

>perl -wle"$x = '010'; print $x; print $x == 10 ?1:0"
010
1
[download]

Also see Beast of the Number: Parsing the Feral Phone when working with phone numbers

Compare the phone number as strings?

If you really want to compare a phone number as a number, add zero to the string representation of the number: $p = 0 + '0008'.

Oh goodie, an opportunity to plug my Number::Phone module! Although it doesn't have phone number comparison methods right now. Should I add them?

Anyway, you can make perl compare your numbers correctly by making sure that you always treat them as strings. As you can see here, using string comparison operators Does The Right Thing with strings:

$ perl -e 'print "01234" eq "01234"'
1
$ perl -e 'print "01234" eq "1234"'
[download]

But using a numeric comparison Does The Wrong Thing:

$ perl -e 'print "01234" == "1234"'
1
[download]