my $CurrentTagList : shared = TagList->new();