CPU: Perl, Fall 2005 Perl, Week 3: More Arrays, Context, Subroutines, Lexical Variables #36

Try it (shorter)

print "Enter names:\n";
chomp(@names = sort <STDIN>);
print "You gave me: @names - thanks!\n";
Copyright © 2005 Ian Langworth