Something

#!/usr/bin/perl

# Take in names.
@names;
$again = y;
while ($again = y) {
        print "Add another name? (y,n)";
        $again = <STDIN>;
#       chomp($again);
        if ($again = y) {
                print "What is the name?\n";
                $current_name = <STDIN>;
                push(@names, $current_name);
        }
        else {
                print "The names entered thus far: @names.\n";
        }
}