my @b = qw[another simple list];
    Internals::SvREADONLY(@b, 1);# Matters here
    warn join ' ', @b;           # "another simple list"
    eval { delete $b[1] };       # throws Modification of...
    warn join ' ', @b;           # "another simple list"
    splice(@b, 1, 1);            # Zot!
    warn join ' ', @b;           # "another list"