Help for this page
my @sizes = qw/6XS 5XS 6XL L S xL m 3xs/; ... print join(' ', @sizes). "\n"; print join(' ', sort $sort_sizes_sub @sizes). "\n";
6XS 5XS 6XL L S xL m 3xs 6XS 5XS 3xs S m L xL 6XL