#my rewritten statement, for better or worse

for (keys %probes) {
	print "$target_name, ':' join', ', @{$probes{$_}}, \n";
}
_output_

244901, ':'  join', ', TTGCTGCTATTCTATCTATTTGTGC GACTTTCAAAGTGACTCTCGACGGG GAGCCTCCAGGCTATTCAGGAAGAA GAAGAATCGCAGCAATTCCCCAATC GAAGTAGTTCCTCCGGAATCCAATG TCAGCTTGCGAATTTGTGGCACCGT TTACCAATGGCACGCTGTGCGCCTA GCAAGCTTTGTTATGCCGAAACCTA AACACTTACAAATGCCACTTCTTCC GTCGCATCCGTTTTCAGGACGATCT AGCAATTTGCCTACTCTTGTATCTC, 
244902, ':'  join', ', GTATTCGGGGAATCCTCCTTAATAG ATATTCCTATTATGTCAATGCCAAT AGCTGTGAATTCGAACTTTTTGGTA GGTATTTTCCGTTTCTTCGGATGAT GATGGGTCAAGTATTTGCTTCATTG TGCTTCATTGGTTCCAACGGTGGCA CCAACGGTGGCAGCTGCGGAATCCG GCGGAATCCGCTATTGGGTTAGCCA TAGCCATTTTCGTTATAACTTTCCG TAACTTTCCGAGTCCGAGGTACTAT GAGTCCGAGGTACTATTGCTGTAGA,