There isn't a trivial way to do this. One way is:

#!/usr/bin/perl

use strict;
use warnings 'all';

my @arr1 = map {[split //]} <DATA>;
my @arr2 = map {my $n = $_; join "" => map {$_ -> [$n]} @arr1}
           0 .. @{$arr1 [0]} - 2;

print "$_\n" for @arr2;

__DATA__
ABC
DBC
ECC
FFF
[download]

This will print

ADEF
BBCF
CCCF

Abigail