print "$a[$_*3+2] " for (0..$#a/3);
print join ' ', @a[map {$_*3+2} (0..$#a/3)];