open(file,"> Segmentation.txt"); my $index = 0; my $n = 0; my $sql_ct = "select max(count(pan_id)) from seg_dtl_panelist where seg_id ='1' group by seg_dtl_id, seg_id"; my $rs_ct = $db->query($sql_ct); while ($n < $$rs_ct[0][0]) { $sql = "select seg_dtl_id from segmentation where seg_id = '1'"; $rs = $db->query($sql); foreach (@$rs) { my $dtl_id = $$_[0] ; $sql_pr = "select pan_id from seg_dtl_panelist where seg_dtl_id = '$dtl_id' and seg_id = '1'"; $rs_pr = $db->query($sql); print file "$$rs_pr[$index][0]|"; } print file "\n"; $index++; $n++; } close (file);