my $choice = $line;
chomp $choice;