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