my @s = $r->[1..3];

##</code><code>##

Argument "" isn't numeric in aelem ...