my $test = 123;
$test = ('0' x (5-length($test))) . $test;