Select Code to Download

   @tag = split ' ', $line, 2;
   $field{ $tag[0] } = $tag[1];

   $bill{ $field{ACCOUNT} } = $field{BILLAMOUNT}  if %field;
   %field = ();

  $bill{ $field{ACCOUNT} } = { %field }  if %field;
  %field = ();