# the following is dumb and is written strictly as an example
package backwards;
sub pmc { $b cmp $a };
package main;
print sort backwards::pmc ( split /\s+/, `cat $0` )