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

##</code><code>##

DoDaUnlink ($file, \@list);

sub DoDaUnlink {
    my ($file, $list) = @_;

    return if unlink $file;
    print "...";
    push @$list, $file;
}