> tperl
use Scalar::Util qw(looks_like_number);
for my $i ("00".."10") {
P "%s(%d) %s like a number", "$i", "$i", looks_like_number($i) ? "looks":"does not look";
}'
00(0) looks like a number
01(1) looks like a number
02(2) looks like a number
03(3) looks like a number
04(4) looks like a number
05(5) looks like a number
06(6) looks like a number
07(7) looks like a number
08(8) looks like a number
09(9) looks like a number
10(10) looks like a number

##</code><code>##

for my $i ("00".."010") {...

##</code><code>##

0(0) looks like a number
1(1) looks like a number
2(2) looks like a number
3(3) looks like a number
4(4) looks like a number
5(5) looks like a number
6(6) looks like a number
7(7) looks like a number
8(8) looks like a number