my @x = (1, 22, 3, -4 );
print join " ", grep { state $i; $i++ % 2 == 0 } reverse @x;