open(FILE, $_) or die "Can't open '$_': $!";
            binmode(FILE);
            my @hashes=(Digest::MD5->new->addfile(*FILE)->hexdigest,$filename);
            my @sorted = sort {@{$a}[0] cmp @{$b}[0]} @hashes;
            #my @sorted = sort { lc($a) cmp lc($b) } @hashes;
            print "$sorted[0]  $sorted[1]\n";
        }
        close(FILE);
    }
}