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() };