my $workbook = Spreadsheet::WriteExcel -> new ( "url.xls" );
my $row = 1,$col =1;
my @links = ( "Sales","Maintainence","Sales","Profits","Region" );

my $worksheet1 = $workbook->add_worksheet ( "Summary" );

my $worksheet2 = $workbook->add_worksheet ( "Sales" );
my $worksheet3 = $workbook->add_worksheet ( "Maintainence" );
my $worksheet4 = $workbook->add_worksheet ( "Expenses" );
my $worksheet5 = $workbook->add_worksheet ( "Profits" );
my $worksheet6 = $workbook->add_worksheet ( "Region" );

foreach my $link ( @links ) { 

my $url = "q{internal:'$link'!A1}";

$worksheet1->write_url ( $row,$col, $url,$label );
$row++;
$col++;
}