use vars qw ($project, $date)
....
return $project, $date