my $x; @$x = (5, 7); my $y; $$y[2] = 9; my $z; @$z[2 .. 4] = (5, 7); my $w; grep 0, @$w[2 .. 4]; #### my @x; grep 0, $x[2];