title: perl find odd odd number in argument
body: <p>Example:</p>
  
  <pre><code>./odd.pl a a b b b
  </code></pre>
  
  <p>output:</p>
  
  <pre><code>b b b
  </code></pre>
  
  <p>find a odd number argument and print</p>
  
  <p>I tried:</p>
  
  <pre><code>my %count;
  foreach $arg (@ARGV) {
      $count{$arg}++;
      if ($count{$arg} % 2 eq 1) { print "$arg"; }
  }
  
  print "\n";
  </code></pre>