#!/usr/bin/perl -w
@names = qw/fred barney wilma betty/;
@in;
$count = 0;
print "\n\n\n"; # just some dumb formatting 
while ($in[$count] !~ /q/i) {
   print "\nPlease enter a number: ";
   chomp($in[$count]);
   count++;
}
foreach $x (@in) {
   print $names[$x];
   print "\n";
}
print "\n\n\ndone.\n\n\n";   # just more formatting and so I know it's "done"