gistfile1.pl

my %args = (
    foo => 'bar',
    (do {
         if    ($answer == 42) { answer => $answer }
         elsif ($answer)       { wrong_answer => 1 }
         else                  { no_anwser    => 1 }
    }),
);