my %option;
@option{qw/a b c/}=();

# my %option = (
#  'a' => undef,
#  'b' => undef,
#  'c' => undef
# );

exists $option{a} and print 'true';

exists $option{d} or print 'false';