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