This is now solved, tm604 from #perl(freenode) pointed out the lacking trailing dot on the 'ORIGIN' value. Now this should read.

push (@$a_records, { ORIGIN => 'example.com.',name => 'testhost', clas
+s
+ => 'IN',
                     host => '192.168.0.5', ttl => '1D' },);
[download]