I agree the example here isn't the greatest. For instance I would almost definately write that line as:

print join("\n",@array),"\n";
[download]

So a better example IMO would be something like:

$count{$_}++ foreach @element;
[download]

Which I would translate as a one liner to "increment the count for each element".

I also think its worth mentioning the 'with' use of for:

print $_*$_+2*$_+1 for $some->('complex')->{'lookup'}->[equation];
[download]

which IMO translates to "print n²+2n+1 with n equaling some complex lookup equation."