Stripping duplicates from a list

[Roger Burton West]

On Thu, Jun 12, 2008 at 04:16:17PM +0100, Kake L Pugh wrote:

>Ideas for the neatest way to do this?  Everything I've come up with so
>far is clumsy or buggy.  (This might be because I'm slightly hungover,
>so sorry if this is actually a really simple problem.)

Assuming you're using a character set with a sane sorting order...

my @out;
{
  my %o;
  foreach my $k (sort @in) {
    my $l=lc($k);
    if (!exists $o{$l}) {
      $o{$l}=$k;
    }
  }
  @out=map {$o{$_}} sort (keys %o);
}

R