my @infoArray = (1, 2, 3, 4, 5, "\n", 6, 7, 8, 9, 10, "\n"); my @final_array = map { $_ eq "\n" ? $_ : "$_\t"} @infoArray; # now print @final_array, for example: print join '', @final_array;