my @xml_files = glob( '*xml' );
#say for @xml_files;

my @bak_files = glob( '*bak' );
#say for @bak_files;

#using the Text::Diff::Table for comparison

my $format = "";

my @joint_files = @xml_files, @bak_files;

my @results = diff \@joint_files, $format { STYLE => "Table" };

say for @results;

##</code><code>##


C:\dev>perl comparing_files_3_using_text_diff.pl ./file_compare_on_lists
Can't locate package Text::Diff::Base for @Text::Diff::Table::ISA at comparing_f
iles_3_using_text_diff.pl line 4.
Backslash found where operator expected at comparing_files_3_using_text_diff.pl
line 20, near "diff \"
        (Do you need to predeclare diff?)
syntax error at comparing_files_3_using_text_diff.pl line 20, near "diff \"
Global symbol "%format" requires explicit package name at comparing_files_3_usin
g_text_diff.pl line 20.
Global symbol "@results" requires explicit package name at comparing_files_3_using_text_diff.pl line 22.