#!perl
use strict;
use Spreadsheet::WriteExcel;
my $workbook  = Spreadsheet::WriteExcel->new('Report.xls');
my $worksheet = $workbook->add_worksheet("DTicket");

#my $url = $sth->fetchall_arrayref([0]);
my $url = [['10000516'],['10000512'],
['10000514'],['10000513'],['10000515']];

my $rowno = 2;
for my $row (@$url ){
  my $url = 'http://example.com/index.pl?TNumber='.$row->[0];
  $worksheet->write_url($rowno++,0, $url, $row->[0]);
}