This is shorter, faster and I find it easier to read:

```perl
$appendtxt = join(" ", "append", @appendoptions) if @appendoptions;
```