my @list = ('my', 'bonnie', 'lies');
foreach my $word (sort @list) {
   print $word, "\n";
}