#!/usr/bin/perl

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

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

##</code><code>##

mac alister
mac loughlin
maceira
san esteban
san zoilo
sangregorio

##</code><code>##

#!/usr/bin/perl
use locale;

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

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

##</code><code>##

mac alister
maceira
mac loughlin
san esteban
sangregorio
san zoilo