for my $key(keys %HoL) { &{$HoL{$key}[0]}; } #### print "$key -> ", &{$HoL{$key}->{$i}}, "\n"; print "$key -> @{[ &{$HoL{$key}->{$i}} ]}\n"; # voodoo!