Also, you don't need two loops there, you can do it in one loop:

for my $asignador_index ( keys %index ) {
    if ( $index{ $asignador_index }{ servicio } eq 'portal' && exists 
+$final{ $asignador_index } ) {
        $index{ $asignador_index }{ estado } = $final{ $asignador_inde
+x }{ estado_max }
    }
}
[download]