Hmm. Interesting.
I like that I can do this:

  my %h;
  @h{qw( good bad ugly )} = part { /good/ ? 0 . . . } @people;
[download]

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.