++$perl if $rapid_development > 2; # we need it fast
++$perl if $developers <= 2; # we have a small dev team
++$java if $threadsafe > 2; # we plan heavy thread use
++$java if $foreign_objects > 2; # untrusted objects
print $perl >= $java ? "perl" : "java";