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