tune: while (length($a)<$length) {$a="0$a";}

Humm.. why use a while loop. Wouldn't this be faster?

$number = '0' x (5 - length($number)) . $number;
[download]

// Martin