foreach $usr( @
#print $usr . "\n";
#print $check_.$usr;
my $check_.$usr = $cgi->param("$chck_.$usr");
print $chck_.$usr;
}