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