#!/usr/bin/perl

open LIST,"wordlist.txt";
@wordlist = <LIST>;
@cleanwords = grep (/.*?\d+.*/, @wordlist);
close LIST;

my $word;
my @words = sort(qw/relscta pnlkiyof mxieoc blna5oyb rilgbale rteceha rwrorai eeolit swabmtee dramse/);

#chomp(@words=split/\s+/,<STDIN>);

foreach $word (@words)
{
	@chars = split(//,$word);
	@schars = sort(@chars);
	foreach$a(@schars){$sword.=join//,$a;}
	#$sword = join(//,@schars);

	foreach $one (@cleanwords)
	{
		chomp($one);
		print "$one\n";
		@whars = split(//,$one);
		print @wchars;
		@swchars = sort(@wchars);
		foreach$b(@swchars){$swword.=join//,$b;}
		
		#print "$sword:$swword\n";
		if($swword =~ m/$sword/i){print "$one\n";}
		undef $swword;
		sleep 1;
	}
	undef $sword
}
print "\n";