Ich hatte mal ein ähnliches Problem und gelöst mit

use MIME::Words qw(:all);
...
Subject => encode_mimewords($self->param('SendeSystemMailBetreff'))
...

Vielleicht hilft es Dir ja auch