print join(", ", 
  map{ q{<a href="link.pl?=} . $_ . q{" target="_blank" onclick="var winHandle = window.open('', '', 'width=400,height=200'); return(false);">} . $_ . q{</a>} } @array
  );