You declare "my $date" twice:

  my $date= shift;
  ...
  my $date;

The second one creates a new lexical with an undefined value. So the subsequent substitution and return are working with undef;