use strict;
use warnings;

use File::Find;
use Data::Dumper;

my $dir = '/TC/APR-TCCC-0003/APR21-TCCC-0003';
my $dataSet = [];
find( 
    sub {
        if( -f ) {
            push @{$dataSet}, $File::Find::name;
        }
    },
    $dir
);

print Dumper $dataSet;