my $excel = Win32::OLE->new('Excel.Application');

my $book = $excel->Workbooks->Open("C:/test.xls");

my $sheet = $book->Worksheets('Sheet1');

$col = $your_column_to_loop_over

for(0..$your_row_limit)
{
    print $sheet->Range($col.$_)->{Value};

}