$desc_ref = \@description."\n";

Get rid of the newline:

$desc_ref = \@description;
[download]

Data::Dumper is extremely helpful:

use Data::Dumper;
print Dumper($desc_ref);
[download]