#!/usr/bin/perl

use Spreadsheet::ParseExcel::Simple;

my $xls = Spreadsheet::ParseExcel::Simple->read('spreadsheet.xls');
foreach my $sheet ($xls->sheets) {
	while ($sheet->has_data) {  
		my @data = $sheet->next_row;
		print @data[5];
	}
}