# ...

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);

#...

(my $name, my $value) = split(/=/, $pair);

# ...

my $FORM{my $name} = $value;