Select Code to Download

#!/usr/bin/perl

my @list = ('maceira', 'mac alister', 'mac loughlin', 'san esteban', '
+sangregorio', 'san zoilo');

print "$_\n" for sort @list;

mac alister
mac loughlin
...
san esteban
san zoilo
sangregorio

#!/usr/bin/perl
use locale;
...
my @list = ('maceira', 'mac alister', 'mac loughlin', 'san esteban', '
+sangregorio', 'san zoilo');

print "$_\n" for sort @list;

mac alister
maceira
...
san esteban
sangregorio
san zoilo