my $desc = join "_" => @array[1,3,5];

##</code><code>##

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

##</code><code>##

my $desc = join "_" => @array[ map { 2*$_ + 1 } 0 .. (@array/2)-1 ];