#! /usr/bin/perl
#
$b = "abefcdghijklmn" ;

$a[0]->[0] = "start 0" ;
$a[1]->[0] = "start 1" ;

for($i = 0; $i < 14; $i += 2) {
    (push(@{$a[0]}), push(@{$a[1]}) ) = unpack("x$i A1 A1", $b) ;
}

foreach ( @{$a[0]} ) {
	print "$_\n" ;
}