print "$key -> ", &{$HoL{$key}->{$i}}, "\n";
    print "$key -> @{[ &{$HoL{$key}->{$i}} ]}\n"; # voodoo!