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(); 

##</code><code>##

CREATE PROCEDURE ex_proc (@part nvarchar(128), 
           @Num nvarchar(128), @Name nvarchar(256), 
           @ReqName nvarchar(256), @Email nvarchar(128)) 
AS INSERT INTO sample (part, Num,Name, ReqName, Email) VALUES ( @part, @Num, @Name, @ReqName, @Email) 
GO