for(1...100){
$n = rand;
print "<INPUT TYPE=\"checkbox\" NAME=$n VALUE=\"on\">";
}

このようにnameを乱数で作ったチェックボックスを１００個作るとする
このときチェックされたチェックボックスのnameだけを
配列@check_name_listに格納するやり方を教えてください
モジュールは使わないやり方でお願いします。