reading data from an excel sheet in perl

    while(value != null) { 
        System.out.println(value);
    }//while

    while(value == null) {
        j++; 
    } 

Row row = sheet.getRow(i);
if (row != null) {
    for (int j = 0; j < row.getLastCellNum(); j++) {
        if (row.getCell(j) != null) {
            if (row.getCell(j).getCellType() == CELL_TYPE_STRING) {
                String value=row.getCell(j).getStringCellValue();
                if(value != null) { 
                    System.out.println(value);
                }
            }
        }   
    }
}

my @item_fields = split /_/, $inws->get_cell( $in_row, 0 ) || q{};
my @name_fields = split /_/, $inws->get_cell( $in_row, $col ) || q{};

push @{ $data } = [ $item_fields[0], ... ];

foreach my $row (sort { $a->[0] cmp $b->[0] } @{ $data } ) { ... }