title: Join array items in loop with perl
body: <p>I have an array with x items:</p>
  
  <pre><code>my @arr= qw( mother child1 child2 child3);
  </code></pre>
  
  <p>Now i want to ietrate this array. Every Loop should append an entry:</p>
  
  <ol>
  <li>mother</li>
  <li>mother/child1</li>
  <li>mother/child1/child2</li>
  <li>mother/child1/child2/child3</li>
  </ol>
  
  <p>How i can realize this with perl?</p>