Foro - Perl en Español

if ( keys %combinaciones ) {
                foreach my $combinacion ( sort { $combinaciones{$b} <=> $combinaciones{$a} } keys %combinaciones ) {
                        print "$combinacion\n";
                        my @combo = split('\|', $combinacion);

                        if (! $fila { $combo[0]} ) {
                                $fila {$combo[0]}=$fila;
                                $sheet->Cells($fila,1)->{Value} = "$combo[0]";
                                $fila++;
                        }
                        if (!$columna { $combo[1]} ){
                                $columna {$combo[1]}=$columna;
                                $sheet->Cells(1,$columna)->{Value} = "$combo[1]";
                                $columna++;
                        }              
                        $sheet->Cells($fila{$combo[0]},$columna{$combo[1]})->{Value} += "$combinaciones{$combinacion}";
                }
        }