my $z = sequence(10); $z = $z(-1:0); print $z;