$ perl -MO=Deparse,-p -e '($used_options{ $1 } = 1 and "\${$1}")'
(($used_options{$1} = 1) and ("\${$1}"));

$ perl -MO=Deparse,-p -e '($used_options{ $1 } = 1 && "\${$1}")'
($used_options{$1} = "\${$1}");