my @choice= $q->param("choice");