All pastes #434859 Raw Edit

Something

public text v1 · immutable
·published 2007-04-11 17:13 UTC
rendered paste body
#!/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);


}