my (@arr, $i); for $i (0..4) { push @arr, $i, "\n"; } print join '', @arr;