#!/usr/bin/perl

# Take in names.
@names;
$again = "y";
print "Would you like to add a name? (y,n)  ";
while ($again eq "y") {
#       print "Add another name? (y,n)  ";
        $again = <STDIN>;
        chomp($again);
        if ($again eq "y") {
                print "What is the name?\n";
                $current_name = <STDIN>;
                push(@names, $current_name);
                print "Would you like to add another name? (y,n)  ";
        }
        elsif ($again ne "y" && $again ne "n") {
                print "INVALID SELECTION; Try again. (y,n)\n";
                $again = "y";
        }
        else {
                print "The names entered thus far:\n @names\n";
        }
}