$|=1; # So it works in the Open Perl IDE

# define the indivdual elements
$array[0] = "a";
$array[1] = "b";
$array[2] = "c";

# use a while loop for printing
$i = 0;
while ($i < 3) {
  print "$array[$i]\n"; # use running variable for the array index
  $i = $i + 1;
}
