my $vals = shift;
.... 
if (ref $vals eq 'CODE') {
   ...........
    my $kv = &$vals( id => $selected, dbh => $$self{dbh} );
   ..............
};
....