my @array1 = qw($aOrder->{rx_OD_Prism_Diopters} 
                    $aOrder->{rx_OD_Prism} 
                    $aOrder->{rx_OD_Prism_Angle_Val}
                    $aOrder->{rx_OD_Prism2_Diopters}
                    $aOrder->{rx_OD_Prism2});