Select Code to Download

use strict;
use DB_File;
...

    print "'$key' contains ".$bhandle->get_dup($key)." values\n";
}

sub get_dup
{
...
 
    return ($wantarray ? ($flag ? %values : @values) : $counter) ;
}