open (my $XML, "<", $xml_file) or die "File open failed ($xml_file): $!;
get_data($XML, \%hash);