push(@{$a[0]}, $b =~ /(.)./g);
push(@{$a[1]}, $b =~ /.(.)/g);