sub str {
  my ($want_num) = @_;
  my $width = '000';
  # ...