#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my @err_loan_id;
my @cad_err_list;

foreach my $file (@cad_err_list) {
    chomp($file);
    my $err_loan_id1 = `grep 'DataDictionary' $file`;
    my @err_loan_id2 = split( /<pciOFACViolation>/, $err_loan_id1 );
    my $reqd_1       = $err_loan_id2[0];
    my @err_loan_id3 = split( /\s/, $reqd_1 );
    my $reqd_2       = $err_loan_id3[2];
    push(@err_loan_id, [ split( />/, $reqd_2 ) ] );
}

print Dumper(\@err_loan_id);