@system_name = qw(box1 box2);
print "Please select a system to pull from\n";

$system1 = <STDIN>;
chomp ($system1);

$original_system = $system1; 			# save for later use
$system1 =~ s/\W.*//; 				# get rid of everything after the first word
$system1 =~ tr/A-Z/a-z/;			# lowercase everything

if (defined(@system_name = $system1)) {
print "You have selected $system1\n";
}