use Data::Dumper;

...

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