sub sub_to_receive { # Example usage # sub_to_receive('123', \&sub_to_be_passed, 'arg'); # sub_to_receive('123', \&sub_to_be_passed, 'arg1', 'arg2'); # sub_to_receive('123', \&sub_to_be_passed, @args); # my ($x, $sub_to_run, @args) = @_; $sub_to_run->(@args, "lalala"); }