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

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