my %classes = (
 D  => sub { code_to_handle_dynamic(); ...; },
 NV => sub { handle_non_volatile(); ...; },
);
chomp (my $answer = <STDIN>);
die "Invalid answer!\n" unless exists $classes{$answer};
$classes{$answer}->();