#! perl -slw
use strict;
use Time::HiRes qw[ time ];

$|++;

sub uniq{ my %x; @x{@_} = (); keys %x }

my $start = time;
my @uniq = uniq <>;
chomp @uniq;

@uniq = sort{ length $b <=> length $a } @uniq;

my $longest = shift @uniq;

for my $x ( @uniq ) {
    next if 1+ index $longest, $x;
    print $x;
    $longest .= "\n" . $x;
}

printf STDERR "Took %.3f\n", time() - $start;

##</code><code>##

c:\test>906020 906020.10e3 > 906020.filtered
Took 48.854

c:\test>wc -l 906020.filtered
   5000 906020.filtered

c:\test>906020-lanx 906020.10e3 > lanx.filtered
Took 43.122

c:\test>wc -l lanx.filtered
   4999 lanx.filtered

c:\test>906020 906020.10e3 > 906020.filtered (inline version)
Took 21.744

c:\test>wc -l 906020.filtered
   5000 906020.filtered