print "$a[$_*3-1] " for (1..@a/3); print "\n";
print join ' ', @a[map {$_*3-1} (1..@a/3)]; print "\n";