if ( $perl{readiblity} > $lisp{readibility} ) {
     $lisp{readibilty} = "Bad";
}