my (@qty, @type,@equip,@dept); #etc.

while ($countrows <= $myrowcounter)
{
  $qty[$countrows] = $incoming{'qty$countrows'}; 
  $type[$countrows] = $incoming{'type$countrows'}; 
  $equip[$countrows] = $incoming{'equip$countrows'};
  $dept[$countrows] = $incoming{'dept$countrows'}; 
  #etc.
  $countrows++;
}