sub paddatevalues {
   foreach my $value (@_) {
      $value = sprintf "%02d", $value;
   }
   return @_;
}

##</code><code>##

sub paddatevalues {
   return map {sprintf "%02d", $_} @_;
}