#!/usr/bin/perl -w
use strict;

my $file = "rawlistfile";
my @eadds;

open INPUT, "+>$file" or die "Can't open $file for reading!";

my @eadds = <INPUT>;

foreach ( @eadds) { $_ = lc }
my $prev;
@eadds = sort @eadds;
my $cur = $eadds[0];
my $i = 0;
while (  $cur le $eadds[-1] ) {
    print "$prev\n" if $prev ne $cur and $prev;
    $prev = $curr;
    $curr = $eadds[++$i];
}