print( $E{age22} ?1:0,"\n"); print( $E{insured} ?1:0,"\n"); print( !$E{sr22} ?1:0,"\n"); print( !$E{dui} ?1:0,"\n"); print( ($E{tickets} <= 1) ?1:0,"\n"); print( !$E{major} ?1:0,"\n"); #### my $E = risk_eval; my %E = %$E; #### my %E = %{ risk_eval() };