Select Code to Download

print_if(\*FH,'AXS ',$aOrder->{rx_OD_Axis},$aOrder->{rx_OS_Axis});

sub print_if {
  my($FH, $orderKey, $odVal, $osVal) = @_;
...
    print $FH $orderKey.' '.$odVal.' '.$osVal."\n";
  }
}