#!/usr/bin/perl -w
use strict;

my $a = '00000022';
my $b = 00000033;    #leading zero means octal!

print "$a $b\n"; #00000022 27

$a+=0;
print "$a $b\n"; #22 27  #22 now numeric