#! 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

##</code><code>##

22:46 >perl 403_SoPW.pl
("abababab", "cdcdcdcd", "efefefef")

22:50 >