$obj = MyClass->new( %params); $obj = MyClass::new( 'MyClass', %params); #### qtyTotal=>sub{return &qtyTotal('phrase 1', @_);} #### $\ = $/; # see perlvar sub b { print join" ",@_ } sub e { &b } # @_ passed implicitly sub f { &b( "got") } # parens necessary! sub g { b "got", @_ } # parens may be omitted, if sub b # has been seen earlier @l = (1...3); e @l; f @l; g @l; __END__ 1 2 3 got got 1 2 3 #### sub b { print join" ", @_ } "b"->(1..3)