sub a { b(@_) } sub b { return map { $_ +1 } @_; } print a (1,2,3)