if ($seen{$_}) {
        $seen{$_} += 1;
    }
    else {
        $seen{$_} = 1;
    }
[download]

can be simplified to

    $seen{$_}++;
[download]

Your sort is also useless since hashes are unordered.