Select Code to Download

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];