my @selections = (
    'Feeblizer',
    'Cervical Vorbalizer',
    'Cortical Vorbalizer',
    'Corticocervical Extravorbalizer',
    'Lumbar Vorbalizer',
    'Cervicolumbar Extravorbalizer',
    'Corticolumbar Extravorbalizer',
    'Hypervorbalizer'
)

$_ = $optstring # wherever that comes from
my $options = m/A/ + 2 * m/B/ + 4 * m/C/;
print $selections[$options];