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