my $sth1 = $dbh->prepare( $sql1 ); # it can be a select
my $sth2 = $dbh->prepare( $sql2 ); # it can be an insert


while(my $var=@arr){
$sth1->execute($param1);
$sth2->execute($param2);
}