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