sub get_worksheet_data {
    my $worksheet = shift;

    my ($row_min, $row_max) = $worksheet->row_range();
    my ($col_min, $col_max) = $worksheet->col_range();

    my @data;

    # Read sheet into array
    for my $row ($row_min .. $row_max) {
        for my $col ($col_min .. $col_max) {
            my $cell = $worksheet->get_cell($row, $col);
            next unless defined $cell;

            # Try to detect dates
            my $v = $cell->value();
            my $u = $cell->unformatted();
            my $T = $cell->{Type};
            my $result = $T;