foreach(keys %entry) {
   if($entry{$_} =~ /\D/g) {
       # tu was
   }
}