Select Code to Download

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