Select Code to Download

my $li_insert =  "insert into LI values(LI_SEQ.nextval,?,?,?,?,?,?,?,?
+,?,sysdate,?,?,?,?)";
my $mechanism_insert = "insert into mechanism (TAGET,ACTIONTYPE,ID,LI_
+ID) values(?,?,MECH_SEQ.nextval,LI_SEQ.currval)";

5,2,1,12
6,1,2,12.

{
'taget '=> [5,6],
'Action_type' =>[2,1]
}

# to get each hash from an array of hash 
foreach my $results(@$hash_of_excel){
...
sub insertMech{
my ($mech_results ) = @_; 
my $mech_array_values = SomethingUnPipeModifyRecord($mech_results);