title: 2 Sub references as arguments in perl
body: <p>I have perl function I dont what does it  do?
  my what does min in perl?
  @ARVG what does mean?</p>
  
  <pre><code>sub getArgs
  {
  my $argCnt=0;
  my %argH;
  
  for my $arg (@ARGV)
  {
      if ($arg =~ /^-/)   # insert this entry and the next in the hash table
      {
          $argH{$ARGV[$argCnt]} = $ARGV[$argCnt+1];
      }
      $argCnt++;
  }
  return %argH;}
  </code></pre>