sub extract_file {
    my( $file_ref ) = @_;
    while( @$file_ref ) {
        my $file = shift @$fileref;
        ## Do stuff
    }
    return;
}

##</code><code>##

my @files = get_xml_files() or die "No XML files to process";