in reply to Getting abbreviations or initials

Why don't you write the initials sub simply as:
sub initials { return &abbr; }
From the docs (perlsub):
If a subroutine is called using the & form, the argument list is optional, and if omitted, no @_ array is set up for the subroutine: the @_ array at the time of the call is visible to subroutine instead.

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics

Replies are listed 'Best First'.
Re^2: Getting abbreviations or initials
by Lady_Aleena (Priest) on Aug 20, 2012 at 19:41 UTC

    blushes I didn't know about using the & form in that way. There are still many things like that I do not know about Perl. Thank you for showing me.

    Have a cookie and a very nice day!
    Lady Aleena