sub xmlfiles_to_mysql {
  my $xmlfile_contents;
    
  while(my ($file_id,$xml_file) = each(%xml_files) ) {
    
     open(XML_FILE, "./xml_files/$xml_file");

     while (<XML_FILE>) { 
        chomp;
        $xmlfile_contents .= $_;
     }
     my $sql_stmnt = "REPLACE INTO xml_files
                      (file_id, xml_file)
                      VALUES(?,?)";
     my $sth = $dbh->prepare($sql_stmnt);
     $sth->execute($file_id,$xmlfile_contents);
     $sth->finish();

     close XML_FILE;
  }
}