Select Code to Download

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

DoDaUnlink ($file, \@list);

...
    print "...";
    push @$list, $file;
}