foreach (keys %entry) {
  if ($entry{$_} =~ /\D/) {
    [...]
  }
}