##
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);
for $i (0 ..$#my_list) {
... a bunch of stuff...
$my_id_list .= $my_list[$i]."|";
... a bunch more stuff...
}
print $my_id_list;
##
##
#trim trailing delimiter
$my_id_list =~ s/\|$//;