use strict;

sub do_nothing { $a cmp $b }

my @in = qw( e n i g m a );

my @out = sort do_nothing( @in );

print "@out\n";

__END__

% perl enigma.pl
a e g i m n