my %tags = ( %PBoard::Config::TagsFirstReplace, %PBoard::Config::TagsFastReplace, %PBoard::Config::TagsLastReplace, ); foreach my $tag ( sort keys %tags ) { my $description = $tags{$tag}->{description}; my $examplesRef = $tags{$tag}->{examples}; # shortcut my @examples = ( 'ARRAY' eq ref($examplesRef) ) ? @$examplesRef : ( $examplesRef ); my @examplesQuoted = map { &PBoard::Posting::BuildMessagePreviewFromRaw( undef, $_ ); } @examplesRef; } # foreach push( @help, { description => $description, examples => map { { text => $_ } } @examples, examplesQuoted => map { { text => $_ } } @examplesQuoted, } );