foreach $field ( @selected )
{
  @value = $q->param( "$field" );
  $value = join( ",", @value );
  print "$field: $value\n";
}