How about this for brute force?

my @new;
my $count = 4; # by this many
for (my $i = 0; $i <= $#old; $i++) {
  $new[$i / $count][$i % $count] = $old[$i];
}
[download]

-- Randal L. Schwartz, Perl hacker