Select Code to Download

#!/your/perl/here
use strict;
...
{
    print "\$seen{$k}: $seen{$k}\n";
}

$seen{6}: 27
$seen{19}: 23
$seen{21}: 33
$seen{43}: 17

    $ad_lookup{$count} = $hash{$k};

    $ad_lookup{$count-1} = $hash{$k};