while (1) {
   chomp($picks = <STDIN>);

   if ($picks eq /\cD/ {
       last;
   }