#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper::Simple;
use Spreadsheet::ParseExcel;

my $workbook = 'test.xls';
my $worksheet_name = 'Sheet1';

my $wb = Spreadsheet::ParseExcel::Workbook -> Parse ( $workbook )
         or warn ( "Problem opening $workbook!\n") ;

my $ws = $wb -> Worksheet( $worksheet_name );

foreach my $row ( $ws -> { MinRow } .. $ws -> { MaxRow } ) {
    
    foreach my $col ( $ws -> { MinCol } .. $ws -> { MaxCol } ) {
	
	    my $cell = $ws -> { Cells }[ $row ][ $col ];
	
	    if ( $cell ) {
	    
	        my $val = $cell -> { Val };
	        my $value = $cell -> Value;
	    
	        if ( $row == 33 && $col == 13 ) {

                print "[$row:$col] = $val\n";
		        print "[$row:$col] = $value\n";

	        }
	    
	    }
    }    
}


##</code><code>##

[33:13] = -4.1
[33:13] =   (-4.10)