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