Suchen:

Dafür gibt es ref();


my $ref = ref $final_hash{$host}->{$descr} || '';
if ( $ref eq 'HASH' ) {
# ...
}

Der Hash wäre dann wohl die bessere Datenstruktur:


use ClassName

my %objekte;
my $cnt = 0;

while ($objectsAvailable) {
$objekte{ "Objekt" . $cnt } = ClassName->new();

Das hätte ja auch fatale Folgen, wenn es global (nach Deiner Definition) wäre.

Stell Dir mal vor, Du hättest zwei Module:


package Eins;

use strict;
use warnings;