Select Code to Download

Select or download this
```
@sorted_recs = sort @recs;
```

@srecs = sort {
    $b->{AGE}      <=>  $b->{AGE}
                   ||
    $a->{SURNAME}  cmp  $b->{SURNAME}
} @recs;

Select or download this
```
@sorted_lines = sort @lines;
```

Select or download this

use Unicode::Collate;
@sorted_lines = Unicode::Collate::->new->sort(@lines);

Select or download this

use Unicode::Collate;
my $collator = Unicode::Collate::->new();
...
          ||
    $collator->cmp( $a->{SURNAME}, $b->{SURNAME} )
} @recs;

Select or download this

use Unicode::Collate;
my $collator = Unicode::Collate::->new();
...
                      ||
    $a->{SURNAME_key}  cmp  $b->{SURNAME_key}
} @recs;

Select or download this

Lewis, C.S.
McKinley, Bill
...
Mables, Martha
Machado, José
Macon, Bacon

Select or download this

use Unicode::Collate;
@sorted_text = Unicode::Collate::->new->sort(@text);

Select or download this

@germans = qw{
    Böll
...
    Borchert
    Bobrowski
};

Select or download this

Bobrowski
Bodmer
...
Böhme
Böll
Böttcher

Select or download this

Bobrowski
Bodmer
...
Brant
Böhme
Böttcher

Select or download this

Bobrowski
Bodmer
...
Brandis
Brant
Böttcher

Select or download this

Bobrowski
Bodmer
...
Böttcher
Brandis
Brant

Select or download this

use Unicode::Collate;
@sorted_germans = Unicode::Collate::->new->sort(@german_names);

Select or download this

Bobrowski
Bodmer
...
Born
Brandis
Brant

Select or download this

use Unicode::Collate::Locale;
@sorted_germans = Unicode::Collate::Locale::
                      ->new(locale => "de_phonebook")
                      ->sort(@german_names);