Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...

print "$hash{'$key'}{'$key'}\n";
print Dumper(\%hash);

Use of uninitialized value in concatenation (.) or string at junk.pl l
+ine 9.

$VAR1 = {
...
                 },
          '$key' => {}
        };