title: Split an array into two arrays in perl
body: <p>I am trying to split the array into two different arrays. 
  The first one will be <code>@product</code>,
  And the second one will be <code>@digit</code>.</p>
  
  <pre><code>@products = qw/Diapers 759230 TrashBags 272616 ToiletPaper 267112 Condoms 987456 Pencils 231948 Pillows 898923 Crayons 123997 Sheets 231223 Paper 235442 Cups 124409 Napkins 029399/;
  </code></pre>
  
  <p>the result for print @product would be:
  DiapersTrashBagsToiletPaperCondomsPencilsPillowsCrayonsSheetsPaperCupsNapkins
  ...</p>