my $padstring = '0';
   my $minlength = 3;
   $name = ($padstring x ($minlength - length($name))) . $name;