Sometimes you get to do something pretty neat in perl that hurts your head, but makes you smile when you are done.


# I'm sooo sorry for this:
my $total = join ',', reverse sort split ',', join ',+,', map +( "f_" . $_ ), @types;


I love it when what looks like line noise is functional code.

--
Bill