I do it similar to you

my $delta = $maxSize - length( $value );
$value    = ( '0'x$delta ).$value if ( $delta > 0 );
[download]

Having said that, I really like the construction Moron described, and plan on trying it. (I'm also the only Perl practioner in my shop. Sadly.)