すまん間違えた

open(my $SEX, "+<sex.txt") or die $!;
my ($males, $females) = split(/,\s*/, <$SEX>);
seek($SEX, 0, 0);
if (form['GENDER'] eq "0") {$males++:}
if (form['GENDER'] eq "1") {$females++:}
$SEXSUM = $males + $females
print $SEX ("$males, $females");
print $SEXSUM ;