#!/usr/bin/perl
# Idiom #290 Sort sublist
use feature 'say';
@items = qw(0 1 2 3 a b c d e
9 10 11); ($i,$j) = (4,8);
$c = sub { $b cmp $a }; # sort alpha descending
say
'# ', join ' ', @items;@items[$i..$j] = sort $c @items[$i..$j]; say
'# ', join ' ', @items;
IyEvdXNyL2Jpbi9wZXJsCgojIElkaW9tICMyOTAgU29ydCBzdWJsaXN0Cgp1c2UgZmVhdHVyZSAnc2F5JzsKCkBpdGVtcyA9IHF3KDAgMSAyIDMgYSBiIGMgZCBlIDkgMTAgMTEpOwooJGksJGopID0gKDQsOCk7CiRjID0gc3ViIHsgJGIgY21wICRhIH07ICMgc29ydCBhbHBoYSBkZXNjZW5kaW5nCgpzYXkgJyMgJywgam9pbiAnICcsIEBpdGVtczsKQGl0ZW1zWyRpLi4kal0gPSBzb3J0ICRjIEBpdGVtc1skaS4uJGpdOwpzYXkgJyMgJywgam9pbiAnICcsIEBpdGVtczs=