for my $asignador_index ( keys %index ) {
    if ( $index{ $asignador_index }{ servicio } eq 'portal' && exists $final{ $asignador_index } ) {
        $index{ $asignador_index }{ estado } = $final{ $asignador_index }{ estado_max }
    }
}