#!/usr/bin/perl -w

print "Enter a list of strings.\n";
print "Press Enter at the end of every line.\n";
print "Press <^D> (Ctrl-d) when finished entering lines.\n"; 
@a=<STDIN>;chop(@a);

if ( $a[0] =~ /\w+/ ){
        $valid_array=$input_array;
        return;
} else {
	print "You must enter a list of strings serparated by a space and press Enter\n";
	print "When you are done entering in lists, press <^D> (Ctrl-d)\n\n\n";
        print "Your input was @input_array, so I am skipping it.\n";
        print "Sorry.\n";
        exit 0;
	$valid_array="FALSE";
}