I don't see where your are using the @desc array in your code, but here's a small snippet demonstrating the use of grep with several arrays:

@a = (1,2,3,4,5);
@b = (10,11,12,13,14,15);

@odd = grep {$_ % 2} (@a, @b); # @odd = (1,3,5,11,13,15)
[download]

What is going on here is that perl 'flattens' both arrays into one and feed the grep with this resulting flattened array.

<kbd>--
my $OeufMayo = new PerlMonger::Paris({http => 'paris.mongueurs.net'});</kbd>