c:\test>perl
@my_list = (3, 5, 2, 9);

for $i (0 ..$#my_list) {
   print $my_list[$i]."|";
}
^Z
3|5|2|9|