foreach my $file ( @files ) {
    my ($project, $date) = parse_file( $file );
    move_file( $file, $project, $date );
}