package backwards;
sub pmc { $::b cmp $::a };
package blah;
sub foo { print for sort backwards::pmc ( split /\s+/, `cat $0` ) }
package main;
blah::foo();

##</code><code>##

package backwards;
sub pmc($$) { $_[1] cmp $_[0] };
package blah;
sub foo { print for sort backwards::pmc ( split /\s+/, `cat $0` ) }
package main;
blah::foo();