my @valid_keys = qw< content username avatar_url >; my %request = map { $_ => $params{$_} } grep { $params{$_} } @valid_keys; $request{tts} = $params{tts} ? JSON::PP::true : JSON::PP::false;