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