for($i = 1; $i <= $ItemCount; $i+=1) {
  print "Item $i is $ItemList[$i][3]\n",
    "  Name: $ItemList[$i][0]\n",
    "  Amount: $ItemList[$i][1]\n",
    "  Process: $ItemList[$i][2]\n\n";
}