practice with perl subs