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