my $i=0;
foreach my $Item ( @itemList )
{
  print "Item $i is $Item[3]\n",
    "  Name: $Item[0]\n",
    "  Amount: $Item[1]\n",
    "  Process: $Item[2]\n\n";
    $i++;
}