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