foreach my $key(keys(%entry)){
   if($entry{$key} =~ /[^\d]/){
     [...]
   }
}