foreach(keys(%{$hash_ref})){
  if(ref($hash_ref->{$_}) ne 'ARRAY'){
    print "Hashref enthält falsche Werte\n";
    last; # evtl auch exit()
  }
}