my $callbackFunc = \&Helper::func; my $obj = new BigOne ( vals => $callbackFunc); #### my $vals = shift; .... if (ref $vals eq 'CODE') { ........... my $kv = &$vals( id => $selected, dbh => $$self{dbh} ); .............. }; .... #### my $callbackFunc = \&Helper::func( additional_parameter => 'xxx' ); #### my $kv = &$vals( id => $selected, dbh => $$self{dbh}, additional_parameter => 'xxx' ); #### my $kv = &$vals( id => $selected, dbh => $$self{dbh});