push @b, $a[$_*2].$a[$_*2+1] for (0..$#a/2);