#/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__