for (my $i=0; $i<@array; $i+=2) {
   $desc .= "$array->[$i+1]_";
}
chop($desc);