More likely is that it's not opening for some reason but since you don't check the return value of your open call you don't know why.

open( XML_FILE, "./xml_files/$xml_file")
  or die "Can't open './xml_files/$xml_file': $!\n";
[download]

Update: Gah, dropped a bang there. (friedo noticed as well)