You're trying to bind to an entire array, but that won't work. Take the elements one at a tine:

my @values = $q->param($key);
tr/\015//d for @values;
[download]