for(my $i=0;$i < scalar(@things); $i += 3){
    process($things[$i]);
}