my %FORM; 
$FORM{Number} = '2'; 
$FORM{Name} = "test"; 
$FORM{ReqName}; 
$FORM{Email}= 'test@mail'; 
$FORM{Part} = '12'; 

and 
$sql = qq!exec ex_proc \@part= $FORMPartNumber}, 
                       \@Num = $FORM{Number}, 
                       \@Name = $FORM{Name}, 
                       \@ReqName= $FORM{ReqName},  
                       \@Email= $FORM{Email}!; 
$ins_sth = $dbh->prepare($sql); 
$ins_sth->execute();