http://qs321.pair.com?node_id=94891

This idiom gives you the number of return values from a subroutine. (Courtesy of P5P)
my $count = () = function();

print $count;      # $count is '5'

sub function {
  return qw(a b c d e);
}

[download]

Back to Cool Uses for Perl