my @x = 0 .. 9;
print "@x[2..4]\n";
print "@x[3,5,7]\n";
my @y = 4..6;
print "@x[@y]\n";
@x[7..9] = @y;
print "@x\n";

##</code><code>##

sub foo {
    wantarray ? 3 : 5;
}

my @x;
@x[2] = foo();
my $x = foo();
print "$x[2] <-> $x\n";