my $number = 02;

I can only get your code to work by quoting $number, like so:

presumably because perl converts "02" (unquoted) to a standard number...

dave