#! perl

use strict;
use warnings;
use utf8;
binmode STDOUT => ':utf8';

my @words = ( "Maria Lenore", "Mária Helena", "María Dolores" );

my @sorted = sort @words;

if ( "@sorted" eq "María Dolores Mária Helena Maria Lenore" ) {
    print("Sorted OK\n");
}
elsif ( "@sorted" eq "Maria Lenore María Dolores Mária Helena" ) {
    print("Sorted C (ASCII)\n");
}
else {
    print("Sort failed: @sorted\n");
}

##</code><code>##

PS C:\Users\Johan> perl locale.pl
Sorted C (ASCII)
PS C:\Users\Johan> perl -Mlocale locale.pl
Sorted C (ASCII)
PS C:\Users\Johan>