@keep{@files} = (1) x @files;
foreach my $file ( @filelist ) {
    unlink $file unless $keep{$file};
}