... isn't this what objects are for?

Second that. (And strictures don't have to be turned off.) 

>perl -wMstrict -le
"{ package Zelda;
   sub type { shift;  return 'prince'; }
   }
 ;;
 { package Mario;
   sub type { shift;  return 'hero'; }
   }
 ;;
 { package Kupa;
   sub type { shift;  return 'villan'; }
   }
 ;;
 foreach my $pkg (qw/Zelda Mario Kupa/) {
   printf qq{$pkg is a %s \n}, $pkg->type;
   }
"
Zelda is a prince
Mario is a hero
Kupa is a villan

[download]

Update: Note: The  shift; in each of the
    sub type { shift;  return 'whatever'; }
subroutine definitions was intended only to point up the fact that a string representing the package (or class) name is implicitly passed as the first argument to any class method (which this subroutine is). Because the method does not interact with the argument list in any way, it is not needed.

In reply to Re^2: How do I interpolate package name in a fully qualified name? by AnomalousMonk
in thread How do I interpolate package name in a fully qualified name? by AGhoulDoingPerl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.