use List::Util qw(min max);
my $maxTagCount = max values %tag;
my $minTagCount = min values %tag;