my $t = 1;
push(@{$a[$t ^= 1]}, $_)
   foreach $b =~ /(.)/g;