Select Code to Download

foreach $word (%tag) {
   $maxTagCnt = $tag{word} if $tag{word} lt $maxTagCnt;
   $minTagCnt = $tag{word} if $tag{word} gt $minTagCnt;
}

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