for ($i=0; $i < @a; $i += 3) {
    print "$a[$i] ";
}