Select Code to Download

do {
  print <<END;
Which computer would you like to cold start?
...
END

...

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>);
}