my ($c_ref) =@_; $c_ref->(1);