#!/usr/bin/perl

open WORDS,'ospd3.txt' or die "Can't open..\n";

while(<WORDS>){
  chomp;
  @current = split(//,$_);
  @sorted = sort @current;
  $key = join('',@sorted);

  push(@{$all{$key}},$_);


}


for(keys %all){
  my @annas =  @{$all{$_}};
  print join(', ',@annas)."\n" if(@annas > 1);


}