#!/usr/bin/perl -w
use strict;

my @test = qw (a b c d e f);
my $is_even_flag =1;

my @odd_tests = grep {$is_even_flag ^= 1;
                     }@test;
print "@odd_tests";  

#prints b d f