use File::Find;
my @AoA = ();
find(\&wanted,".");

sub wanted {
    push @AoA, [$file, "Cfj$1"] if($File::Find::name =~ /^Afj(.+)/);
}