my @a = (1..21);
my @b;
push @{$b[$_/2]}, $a[$_] for 0..$#a;