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