Select Code to Download

sub paddatevalues {
   foreach my $value (@_) {
...
   }
   return @_;
}

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