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};