#!/usr/bin/perl
use warnings;

open(LIST, 'wordlist.txt');
%wordlist;
@descrambled;

while (<LIST>) {
	chomp;
	s/^#\s+//;
	s/\s+$//;
	next unless /\S/;
	$letters = join '', sort split //;
	#print "$_ \n";
	$wordlist{$letters} = $_;
}

open(IN, 'input.txt');
while (<IN>) {
	chomp;
	s/^#\s*//;
	s/\s+$//;
	next unless /\S/;
	$letters = join '', sort split //;
	if ($wordlist{$letters}) {
		print "$_: $wordlist{$letters}\n";
		push(@descrambled, $wordlist{$letters});
	} else {
		print "$_: no matches\n";
	}
}

$output=join(',',@descrambled);
print "$output\n";
system("echo $output > out");
close IN;
close LIST;