my @a = (1, 6, 3, 4,   9, 2, 5, 1,   6, 3, 2, 9);
for (my $i = 0; $i <= $#a; $i += 4) {
    print sort @a[map {$_ + $i} (0 .. 3)];
}