Select Code to Download

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