perl -e ' use strict; foreach (map {split} map {lc}<>){
  push @{ $ARGV[0] {glue => sort split // }}, $_};
  foreach (values %{$ARGV[0]}){my %seen=(); my @anagrams=
  grep{ ! $seen{$_}++ } @$_ ; print join (" " => @anagrams>1 ?
  @anagrams : next ), $/ }'