while (<DATA>) {
  chomp;
  my $key = lc $_;
  next if $seen{$key}++;
  my $signature = join "", sort split //, $key;
  push @{$words{$signature}}, $_;
}
for (sort keys %words) {
  my @list = sort @{$words{$_}};
  next unless @list > 1;
  print "@list\n";
}
__END__
Abby 
abbot 
acne 
alert 
alter 
baby 
Baby 
BABY 
best 
bets 
cane 
later 
Unix 
UNIX