I could not get your code to give me the last column, but this should work

use Win32::OLE;
$Win32::OLE::Warn = 3;                     # die ( UGLY ) on errors...
use Win32::OLE::Const 'Microsoft Excel';
my $Excel =  Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open("C:\\temp\\foo.xls");
my $Sheet = $Book->Worksheets(1);         # select worksheet number 1

$date = $Sheet->UsedRange->End(xlToRight)->Cells(1,1)->{'Value'};

print "$date\n";
[download]

at least, that is how I have accessed data in an Excel sheet before.

HTH, --traveler