my $test = 123;
while (length($test) < 5) {
  $test = '0' . $test;
}