#!/usr/bin/perl
my %HoTypes = (
    'PythonQuestions' => [ '[PythonQuestions|Python Questions]', 318, 3, 10 ],
    'OffTopics'       => [ '[OffTopics|Off Topic Post]',         500, 3, 10 ], 
    'notes'           => [ 'Notes',                              283, 3, 20 ]
);

for my $T ( keys %HoTypes ) {
        my $nodeStr = $HoTypes{$T}[0];
        print "$T -> $nodeStr\n";
}

##</code><code>##

PythonQuestions -> [PythonQuestions|Python Questions]
notes -> Notes
OffTopics -> [OffTopics|Off Topic Post]

##</code><code>##

PythonQuestions -> [PythonQuestions|Python Questions]
OffTopics -> [OffTopics|Off Topic Post]
notes -> Notes