#!/usr/bin/perl

use strict;
use warnings;

main();
exit 0;

sub main {
  my @files = get_xml_files();
  extract_file(\@files);
}

sub get_xml_files {
  my @files = glob(*.xml);
  return @files;
}

sub extract_file {
  my ($file) = @_;
  # Do something...
  return;
}