#!/usr/bin/perl -w
use strict;
my %words = (); 
while (<>) {
    chomp;
    my $word = lc $_;
    my $windex = pack "C*", sort unpack "C*", $word;
    next if (exists $words{$windex}) 
        and grep {$_ eq $word} @{$words{$windex}};
    push @{$words{$windex}}, $word;
}
print map {"@$_\n"} sort grep {scalar @$_ > 1} values %words;