[FWP] Kill 'em all and let God sort it out

[Michael G Schwern <schwern@pobox.com>]

(This requires some artistic license on the return value of kill...)

# "Kill them all and let God sort them out"
print sort God kill 9, @ARGV;

# Bonus points if you can figure out this one.
print grep { ref and ref !~ /^[A-Z]$/ } kill 9, @ARGV;


-- 

Michael G. Schwern   <schwern@pobox.com>    http://www.pobox.com/~schwern/
Perl6 Quality Assurance     <perl-qa@perl.org>	     Kwalitee Is Job One
I was *meant* to mount your donuts.

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe