#!/usr/bin/perl
use locale;

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

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