#!/usr/bin/perlrequire "cgi-lib.pl"&ReadParse;$sex = $in('sex');$int = $in('int');$form = $in('form');$ice = $in('ice');#データーを分割@int = &splitparam('int')@ice = &splitparam('ice')#データーをdbmで分割dcmopen(%SEX,"sex",0666);$SEX{$key}++;dbmclose{sex};dbmopen(%int,"INT",(0666);foreach %key (@int) { $int (key)…