@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 th
+e first word
$system1 =~ tr/A-Z/a-z/;            # lowercase everything

foreach (@system_name) {
        print "You have selected $system1 \n" if ($_ eq $system1);
}