diff --git a/perl/t/01_pack.t b/perl/t/01_pack.t
index 60c67f89..dbf7a9aa 100644
--- a/perl/t/01_pack.t
+++ b/perl/t/01_pack.t
@@ -15,6 +15,8 @@ sub pis ($$) {
 
 my @dat = (
     0,     '00',
+    (my $foo="0")+0, '00',
+    {2 => undef}, '81 a1 32 c0',
     1,     '01',
     127,   '7f',
     128,   'cc 80',