Hi, thank you

I've been trying to reproduce the error and I can do it by marking the array readonly

$ perl -e " use Data::Lock qw/ dlock /; use Devel::Peek; my @f;       
+  Dump\@f; dlock \@f; Dump\@f; $f[1]=1;   "
[download]

SV = IV(0x3f9ad8) at 0x3f9adc
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x99bb0c
  SV = PVAV(0x3fa970) at 0x99bb0c
    REFCNT = 2
    FLAGS = (PADMY)
    ARRAY = 0x0
    FILL = -1
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)
SV = IV(0x3f9ad8) at 0x3f9adc
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x99bb0c
  SV = PVAV(0x3fa970) at 0x99bb0c
    REFCNT = 2
    FLAGS = (PADMY,READONLY)
    ARRAY = 0x0
    FILL = -1
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)
Modification of a read-only value attempted at -e line 1.

That split is somehow is marking it readonly is so weird :D