for my $key(%HoL) { &{$HoL{$key}[0]}; }