my $q = $self->query();
  my @countrys=$q->param('country');
  &CGI::scrolling_list(
   	-name   =>'country',
   	-values=>[@CountryCodes],
   	-default=>[@countrys], #fix
   	-size=>5,
	-multiple=>'true',
	-labels=>$hashref
	);