Select Code to Download

use strict ;
    use DB_File ;
...
    @list = $x->get_dup("Dog") ;
    print "Dog =>       [@list]\n" ;

    $count = $x->get_dup($key) ;
    @list  = $x->get_dup($key) ;
    %list  = $x->get_dup($key, 1) ;