Perhaps a do block would suffice?

unlink $file or
    do
    {
        print "Error!";
        push( @list, $file );
    };
[download]

You could accomplish this using a series of and (or &&, see perlop) and parentheses, but IMO the do block is more clear.