foreach $file (@filelist)  {
  Parse::parse_file($file,$project,$date);
  Moving::move_file($file,$project,$date);
...

##</code><code>##

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