Perl добавить чекбоксы в БД

Есть форма с множеством инпутов.

^[@items2 ^[$name] <input type=checkbox name=acc_^[$id] ?] > @]

ID много и заранее прописать каждый я не могу.

Пытаюсь взять отмеченные поля и добавить в БД. Вот так:

foreach my $acct (param()) {
    if ($acct =~ /^acc_(\d+)$/ ) {           
            if (param($acct) =~ /^\d+$/ && param(&acct)->{selected}) {
             my $sth = $dbh->prepare("INSERT INTO catalog_chains (cidc, pidc) VALUES (?,?)");
             my $rvs = $sth->execute($id, param($acct)) or &error($sth->errstr);
            }  
        }
    }

Т.е. беру все с acc*, вытаскиваю оттуда только ID (без acc), проверяю на отмеченность и пытаюсь отмеченные добавить в БД.

Что я делаю не так?

Вот еще так попробовал.

foreach my $acct (param()) {
    if ($acct =~ /^acc_(\d+)$/ ) {           
         if (param($acct) =~ /^\d+$/) {
             my $sth = $dbh->prepare("INSERT INTO catalog_chains (cidc, pidc) VALUES (?,?)");
             my $rvs = $sth->execute($id, param($acct)) or &error($sth->errstr);
        }  
    }
}