Select Code to Download

use warnings;
use strict 'refs';
...
($$heap{'127.2'}{'127.1.0.2'} = 2);
print("\$heap->{'127.2'}{'127.1.0.2'}: $$heap{'127.2'}{'127.1.0.2'}\n"
+);
print("\$heap->{127.2}{127.1.0.2}: $$heap{127.2}{127.1.0.2}\n");

$heap->{'172.16'}: 1
$heap->{172.16}: 1
$heap->{'127.2'}{'127.1.0.2'}: 2
Use of uninitialized value in concatenation (.) or string at testHash3
+.pl line 25.
$heap->{127.2}{127.1.0.2}: