#!/usr/bin/perl
# w2.7.pl -- an array using <STDIN>  -- sorted

print("Give us a list:\n");
@list = <STDIN>;
@nlist = sort(@list);
print ("\n", @nlist);
__END__

