Hai Chanakya,
You can find untested code below....
Might be you can use the logic...

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

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

--Prasanna.K