Select Code to Download

my $check_ = "chck";
my $chck_ = "check";

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

for my $user_id (@userchecklist_id) {
    my $checkbox_name = "check_$user_id";
...
    print "Checkbox name:  $checkbox_name\n";
    print "Checkbox value: $checkbox_value\n";
}

my $usr = $user->id;
...
foreach $usr( @userchecklist_id) {