I keep hearing about the tons of idioms, but i can seem to think of many. I put together a small list that i know is incomplete.

Idioms:
Tye + Juerd in id=204874
sub slurp {  local( *ARGV, $/ ); @ARGV = shift; <> };

dragonchild id=376694
sub unique { my %x; grep { !$x{$_}++ } @_ }

broquaint id=374287
sub in_list {return !!grep { $_ eq $_[0] } @_[ 1 .. $#_ ];}
[download]

These represent in no way a complete list, they are just a collection of idioms I found while searching perlmonks. Could we start a list or a document that would hold perl idioms and maybe a short explanation of them? If you wanna help just add it as a reply here or should i start a meditation on the matter? Well for now reply here, I can always post a revised list to meditation for comment/correction and addition.