my $i    = 1;
    my $desc = join "_" => grep {$i = !$i} @array;
[download]

Abigail