If your dir is '/path/to/your/dir', you can try with:

#!/usr/bin/perl -w
use strict;

chdir '/path/to/your/dir';
my @AoA;
push (@AoA , map { ['Afj'.$1,'Cfj'.$1]} /^Afj(.*)/) while (<*>);
print map{$_->[0] , " , ", $_->[1], "\n"} @AoA;