my $nombre  = $ref->[1]{cell}[i][j];

my $maximo_de_filas    = $ref->[$hoja]{maxrow};
my $maximo_de_columnas = $ref->[$hoja]{maxcol};

my @filas = Spreadsheet::Read::rows($ref->[$hoja]);
foreach my $fila ( @filas ) {
    print '|';
    foreach my $celda ( @$fila ) {
        print "$celda|";
    }
    print "\n";
}