my @array = (1, 2, 3, 4, 5);
my @array_slice = @array[0,1,2];
print @array,"\n";
print @array_slice,"\n";