my $desc = join "_" => @array[ grep { $_ % 2 } 0 .. $#array ];