title: Missing $ on loop variable
body: <pre><code>#!/usr/bin/perl
  use strict;
  use warnings;
  
  my @array = qw[a b c];
  foreach my($a,$b,$c) (@array) {
      print "$a , $b , $c\n";
  }
  </code></pre>
  
  <p>I receive following error: </p>
  
  <blockquote>
    <p><strong>Missing $ on loop variable</strong></p>
  </blockquote>
  
  <p>What is wrong?</p>
  
  <p>I am using: <code>perl v5.10.1 (*) built for x86_64-linux-thread-multi</code></p>