title: Is it possible to write a Perl foreach loop in a single line?
body: <p>Is it possible to use a single line <code>foreach</code> loop in Perl?</p>
  
  <pre><code>$hash{$thing}++ foreach my $thing (@things);
  </code></pre>
  
  <p>I know this is possible with many other commands such as,</p>
  
  <pre><code>die "Invalid file!\n" if (open($Handle, "file.txt"));
  </code></pre>
  
  <p>I know that open statement maybe broken :)</p>