title: How to return multiple values from a Perl function call?
body: <p>How do I return multiple values from a Perl function call?</p>
  <h3>Sample code</h3>
  <pre><code>my ($value1, $value2, $value3) = getValues(@parts)
  
  sub getValues
  {
      foreach(@_)
      {
          $_ =~ m{/test1_name (.*) test2_name (.*) test3_name (.*)/};
  
          $test1_value = $1;
          $test2_value = $2;
          $test3_value = $3;
      }
  }
  </code></pre>
  <p>This code is not working.</p>