use Modern::Perl;

open my $WORDLIST, '<', './wordlist.txt' or die $!;

my $available = 'AABCDEF';

$available = join '?', sort split '', $available;
$available .= '?';

while (<$WORDLIST>) {
    chomp;
    my $sorted = join '', sort split '';
    say if $sorted =~ /^$available$/io;
}

##</code><code>##

abe
ace
aced
baa
bad
bade
be
bead
bed
cab
cad
cade
cafe
dab
dace
deaf
deb
decaf
fab
facade
face
faced
fad
fade
fed