if ($var =~ /dog\s(\d+)$/) {
print "$TOC{$1}\n";