$newlocationdir = "/perl/ass/$folder[$N]";