gistfile1.perl

my %args = (
    foo => 'bar',
    (cond(
        ($answer == 42) { answer => $answer }
        ($answer)       { wrong_answer => 1 }
        (otherwise)     { no_anwser    => 1 }
    )),
);