for (my $i = 0; $i < $#array + 1; ++$i){
  print $array[$i] . "\n";
}