my %FORM = ();
foreach my $pair (@pairs) { 
       my ($name, $value) = split(/=/, $pair, 2);
       $FORM{$name} = $value;
    
       # ... es folgen diverse Kodierungen ...

}