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