while ( ($addques{$key}{answer} eq "") || ($addques{$key}{answer} !~ /$addques{$key}{format}/) )
 {
  print " Invalid answer/option - try again\n";
  print "$addques{$key}{question}";
  chomp($addques{$key}{answer} = <STDIN>);
 }