In the code as shown, "map" just melds in the array reference construction. Perhaps that is what you prefer.

I personally would either make a temporary variable to hold the map result; or rearrange the code to highlight map function. On the second note ...

'troll' => [ 'troll',
             map( "$_ troll",
                  qw(desert freshwater giant ice saltwater snow spectr
+al),
                  'two-headed'
                ),
             'trobold',
             @$tralg,
             @$throglin
           ]
[download]