Not sure how the code you have supplied relates to the problem you have outlined, unless you are talking about sub chk_cals, which you have not supplied the code for.

In principle, you return more than one value by returning a list.

e.g.

return ('foo', 'bar');

return @out;
[download]

perldoc perlsub has the details of subs, parameter passing and return values. Also relevant is the wantarray function, see perldoc -f wantarray.