my %trash;
@trash{@file_list} = " ";
delete @trash{@saved_files};

foreach $file (keys %trash) {
	unlink $file;
}