my $c;
while (($c = ReadKey 0) =~ m/^[0-9]$/) {
  ...
}
...