push(@{$a[$_%2]}, substr($b, $_, 1))
   for 0..13;