#!/usr/bin/perl

# process_names.pl -- A simple program to illustrate the use of arrays
#         (p. 352 of Sebesta, 2003)  
#
# Input:  A file, specified on the command line, of lines of text,
#         where each line is a person's name
#
# Output: The input names, after all letters are converted to upper
#         case, in alphabetical order
#

$index = 0;

# Loop to read the names and process them

while ($name = <>) {
   # Convert the name's letters to upper case and put it in the names array
    $names[$index++] = uc($name);
}

# Display the sorted list of names
print "\nThe sorted list of names is:\n\n\n";

foreach $name (sort @names) {
    print ("$name\n");
}