Select Code to Download

@my_list = (3, 5, 2, 9);

for $i (0 ..$#my_list) {
   print $my_list[$i]."|";
}

3529

   print $my_list[$i]."XX";

3XX5XX2XX9XX

   print $my_list[$i]."|n";

3|n5|n2|n9|n

3|5|2|9|

   print $my_list[$i]."\|";

@my_list = (3, 5, 2, 9);

...
   ... a bunch more stuff...
}
print $my_id_list;

#trim trailing delimiter
$my_id_list =~ s/\|$//;