until ($question >= 1 and $question <= @pc) {
  print "Computer list:\n";
  print "$_)\t$pc[$_-1]\n" for (1..@pc);
  print "Which computer would you like to cold start? ";
  chomp($question = <STDIN>);
}