помогите с ОП (perl)

возвращает она массив, последнюю строку замочить можно так: $out->{order_sources} = [map {$_->to_hash} $self->{order_manager}->order_sources->get_sources($operator->cur_lo cale)];

$#$out->{order_sources}--;

pop @{$out->{order_sources}};

$out->{order_sources}[0..3] = [map {$_->to_hash} $self->{order_manager}->order_sources->get_sources($operator->cur_lo cale)];

пасиба!!!