my $ordno = 1;
while (my $ref = $GetWOData->fetchrow_hashref()) {
   my $ordslice = 1;
   print	"$ref->{'Ord_No'}\n"; 
  $orders[$ordno]->[$ordslice] = "$ref->{'Ord_No'} | $ref->{'Item_No'}";
  $ordslice++;
  print	"$ref->{'Item_No'}\n";
  print	"<input type=\"text\"  name=\"qty$ordno\" value=\"\" size=\"6\">\n"; #Qty of parts
  $orders[$ordno]->[$ordslice] = "0";
  $ordslice++;			
  print	"$ref->{'Item_Desc_1'}\n";
  $orders[$ordno]->[$ordslice] = "$ref->{'Item_Desc_1'} | $ref->{'Item_Desc_2'}";
 $ordslice++;
 print	"<input type=\"text\"  name=\"skd$ordno\" value=\"\" size=\"6\">\n"; #Num of skids
  $orders[$ordno]->[$ordslice] = "0";
  $ordslice++;
  print	"$ref->{'Cus_Name'}\n";
  $orders[$ordno]->[$ordslice] = "$ref->{'Cus_Name'}";
  $ordno++;
}		
$GetWOData->finish();