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

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

##</code><code>##

3529

##</code><code>##

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

##</code><code>##

3XX5XX2XX9XX

##</code><code>##

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

##</code><code>##

3|n5|n2|n9|n

##</code><code>##

3|5|2|9|

##</code><code>##

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

##</code><code>##

@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;

##</code><code>##

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