unless (unlink $file) {
    print "...";
    push @list, $file;
}