# Define data range
my $sum = 0;
foreach my $line (@$array) {
  $sum += scalar(@$line);
}
my $rows = scalar(@$array);
my $cols = $sum/scalar(@$array);
my $rng1 = "A1"; ### hard-coded starting position
my @num = ("A" .. "Z");
my $num2 = $num[$cols-1];
my $rng2 = "$num2"."$rows";

# Copy data to excel range
$sheet -> Range("$rng1:$rng2") -> { 'Value' } = $array;