#! /usr/bin/perl

use strict;
use warnings;

my @a;
my $b = "abefcdghijklmn" ;

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

my @chars = split //, $b;

while (@chars) {
  push @{$a[0]}, shift @chars;
  push @{$a[1]}, shift @chars;
}

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