Select Code to Download

  use strict;
  use Spreadsheet::ParseExcel;
...
  }
  my $sheetone = $oBook->Worksheet('gendata') ||
    die( "No such worksheet gendata" );

  my $oBook2nd=Spreadsheet::ParseExcel::Workbook->Parse('second.xls');

...
  }
  my $sheettwo = $oBook->Worksheet('gensearch') ||
    die( "No such worksheet gensearch" );

  for ( my $row = 0; $row < 10; $row++ ) {
    my $search = qr/$sheettwo->{Cells}[$row][0]->{Val}/;
...
              ( $row + 1 ) );
    }
  }