use strict;

sub do_nothing { @_ }

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

my @out = sort do_nothing( @in );

print "@out\n";

__END__

% perl enigma.pl
e n i g m a