my $typecolors = {
    1   =>  \&release,
    2   =>  \&event,
    3   =>  \&gossip,
    4   =>  \&props,
    5   =>  \&diss,
    6   =>  \&other,
};

sub release {...}
sub event {...}
sub gossip {...}
sub props {...}
sub diss {...}
sub other {...}