You really shouldn't be declaring named subs inside of named subs in perl. Subs only nest properly in perl if the inner subs are anonymous.