programming-examples/perl/Array/Reverse a sub-range of an array.pl

@array = (1, 2, 3, 4, 5, 6);
@array[2 .. 4] = reverse @array[2 .. 4];

print join (", ", @array);