open DICT, "</usr/dict/words" or die "no more words: $!";
$a = join "", sort split "", lc shift;
 
for(<DICT>){
   $b = lc($_); 
   chomp($b);
   $b = join("",sort(split //,$b));
   if($a eq $b){print}
}