foreach my $link ( @links ) { 
  my $url = "q{internal:'$link'!A1}";

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