use strict;
use warnings;

sub forEveryOther(&@) {
  my @aData = @_[1..$#_];
  my @aResults;

  local $_;
  for (my $i=0; $i < $#aData; $i+=2) {
    $_ = $aData[$i];
    push @aResults, $_[0]->();
  }
  return @aResults;
}