Probleme bei exists-Abfrage in einem Hash

[Silvio]

Hallo,

Ich möchte mit folgendem Code prüfen, ob in einem Hash ein Key vorhanden/ gesetzt ist.

use Data::Dumper;
my %itemSet;
print "Dump vor exists-Abfrage: " . Dumper(%itemSet) . "\n\n";
if (exists $itemSet{'item'}{'imageSet'}{1}{'large'} ) {print "'large' ist vorhanden\n\n";}
print "Dump nach exists-Abfrage: " . Dumper(%itemSet) . "\n\n";

Im Ergebnis erhalte ich

Dump vor exists-Abfrage:

Dump nach exists-Abfrage: $VAR1 = 'item'; $VAR2 = { 'imageSet' => { '1' => {} } };

Was ich nicht verstehe ist, warum %itemSet nach der exists-Abfrage auf einmal gefüllt ist?

Und kann ich das verhindern?

Danke!