my $qty[$countrows] = $incoming{'qty$countrows'};
[download]

?? did you really mean to do the my within the while? Also I don't see $countrows being incremented. How about declaring the arrays outside of the while loop?

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++;
}
[download]

Not sure if there was anything else wrong but that was my 1st thought. Hope that helps. -- Carmen