#/usr/bin/perl
use strict; use warnings; use feature 'say';

my @x = ( 1 .. 100 );
my @y = @x[ 0 .. 9 ];
my @z = @x[ -10 .. -1 ];

say join ',', @y;
say join ',', reverse @z;

__END__

##</code><code>##

1,2,3,4,5,6,7,8,9,10
100,99,98,97,96,95,94,93,92,91

##</code><code>##

my @y = @x[ 0 .. 9 ];
my @z = @x[ $#x-9 .. $#x ];