@keep{@files} = ();            # empty list
@keep{@files} = (1) x @files;  # list of "TRUE" values

##</code><code>##

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