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;