Жил был кусок кода, и все прекрасно работало. Но потом я решил добавить еще одно сообщение об ошибке и получил от перлы (во время исполнения) вот такое:
Modification of a read-only value attempted at ... line 24.
Вот собственно код который генерировал ошибку:

sub _out ($@) {
    my $l = shift;
    return if $level < $l;
    # empty line
    $_[-1] =~ s/\n$//;
    print STDERR @_, "\n";
}