Why not just

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

Or if you want to get fancy

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