Select Code to Download

$opcode=$x->{opcode};
while (@{$x->{subfields}}) {
...
  generate_html_row($opcode,@params);
  $opcode='';
}