Как автоматически заполнить сообщение в скайпе чата

use strict;
my ($i, $rows, $cols) = (0, 10, 100);
# initiate array 10x100
my $array = [map {[map {$i++} (1..$cols)]} (1..$rows)];
# transpose array into 100x10 array
my $transpose = [map {[map {shift @$_} @$array]} @{$array->[0]}];

массив должен быть матрицей, то есть столбцы должны быть равны для каждой строки, исходный массив будет уничтожен

этот код не будет использовать дополнительную память для транспонирования, x2 для других библиотек, для больших массив, например 100x1M, имеет значение