Das ginge schon, aber ich verspüre einen Widerstand in mir, das alles in eins zu machen.
Das würde es langsamer machen oder als Abhilfe verschiedene Funkionen doppelt mit zusätzlichen if's.

use Term::Choose qw(choose)
mit
use Term::ChooseColored qw(choose)
zu ersetzen ist auch nicht viel Aufwand.