TimeStamp(\$data_created);

sub TimeStamp {
  my ($dataRef) = @_;
  if ($$dateRef =~ /(\d{4})(\d{2})(\d{2})/) {
    $$dateRef = "$2/$3/$1";
  } else {
    warn("...");
  }
}