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

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