my @AoA = map {
  (my $C = $_) =~ s/^Afj/Cfj/;
  [ $_, $C ]
} glob 'Afj*';