my %whenPhrases = (
   body => q{has to fight},
   thing => q{has to give},
   day => q{they will know the truth},
   where => q{in a very near place to their mind},
   time  => q{can only tell},
   );

my $some = get_word();
my $when =
   exists $whenPhrases{some}
   ? $whenPhrases{some}
   : q{yes, there is always a space for default};

##</code><code>##

my $some = get_word();
my $when =
   $some eq 'body'
   ? 'has to fight'
   : $some eq 'thing'
     ? 'has to give'
     : $some eq 'day'
       ? 'they will know the truth'
       : $some eq 'where'
         ? 'in a avery near place to their mind'
         : $some eq 'time'
           ? 'can only tell'
           : 'yes, there is always a space for default';