diff --git a/perl/t/07_break.t b/perl/t/07_break.t
new file mode 100644
index 00000000..dd27ad25
--- /dev/null
+++ b/perl/t/07_break.t
@@ -0,0 +1,12 @@
+use Test::More;
+use Data::MessagePack;
+use t::Util;
+no warnings 'uninitialized'; # i need this. i need this.
+
+plan tests => 1;
+
+my $d = Data::MessagePack->unpack(Data::MessagePack->pack([{x => undef}]));
+$d->[0]->{x} = 1;
+ok delete $d->[0]->{x};
+$d->[0] = 4;
+