#!/usr/bin/perl -w
use Spreadsheet::ParseExcel;
my $excel = Spreadsheet::ParseExcel::Workbook->Parse($ARGV[0]);
$Worksheet = $excel->Worksheet("...");
foreach my $col ($Worksheet->{MinCol} ..  $Worksheet->{MaxCol}) {
   my $cell = $Worksheet->{Cells}[0][$col];
   if ($cell) {
       push @keywords, $cell->{Val};
   }
}