Понятно, спасибо.
> Лучшим решением будет не использовать while+each и last. Вместо:
>
> my $config= $self->config->{test};
> for my $key (keys %$config) {
> my $val= $config->{$key};
> ...
> }
Так и поступил.
--
Всего хорошего!