#! perl
use Modern::Perl;
use Data::Dump;

my @array;

while (<DATA>)
{
    chomp;
    my @pairs = /(..)/g;
    $array[$_] .= $pairs[$_] for 0 .. $#pairs;
}

dd @array;

__DATA__
abcdef
abcdef
abcdef
abcdef