use 5.010;
use strict;
use warnings;

my @infoArray = ( 1, 2, 3, 4, 5, "\n", 6, 7, 8, 9, 10, "\n" );

my @line;
for (@infoArray) {
    if ( $_ eq "\n" ) {
        say join "\t", @line;
        @line = ();
    }
    else {
        push @line, $_;
    }
}
[download]