A subroutine name of salary is too vague for me. Sure it's got to do with salary but what does it do? GetSalary (or getsalary or get_salary) sounds like one that gets the salary. SetSalary and CalcSalary would of course set and calculate a salary. Unless of course you are dealing with objects and then I'd probably do it different, like $salary->get($user);.

/me shrugs.