my $value= [ $q->param('foo') ];
$value= $value->[0]   if  @$value < 2;
[download]

also sets $value to undef if no such parameter exists (and, no, it won't generate a warning unless you later try to use $value in a string or number context).

        - tye (but my friends call me "Tye")