#! /usr/bin/perl -w
use strict;
my @words = <>;
chomp(@words);
&find_anagrams(@words);

# Takes a list or words, finds all anagrams in it
sub find_anagrams {
  my %anagrams;
  foreach my $word (@_) {
    my $key = join '', sort(split(//, lc($word)));
    push @{$anagrams{$key}}, $word;
  }
  foreach my $lst (values %anagrams) {
    if (1 < @$lst) {
      print "@$lst\n";
    }
  }
}