.......
use strict;
use XML::Simple;
....
sub updateRes($){
 my ($key,$tbl,$ds,$rv,$dbi,$dbu,$dbx,$dbd,@prms,@slct,$sql1,$sql2,$sql3,$sql4,$sql5);

 foreach $key (keys %{$Xml->{data}}){
  $sql1.="`$key`,";$sql2.="`$key`=?,";$sql3.='?,';
 }

........