sub ccc{65}
print "\n" . ccc.ccc.ccc.ccc;  # this evaluates to numbers
print "\n" . 65.65.65.65.65;   # this evaluates to letters
# Ok. It's a little weird, but it is what it is.

##</code><code>##

sub MY{ my $K = __SUB__; }  # Why is this giving me an error?

##</code><code>##

sub P{(6,7,8)}       # returns an array