#!/usr/bin/perl
use strict;
use warnings;
use Text::Table;

my (%animal, %color);
while (<DATA>) {
	chomp;
	my (undef, $sample, $animal, $color) = split /[\t;]/;
	s/^\w__// for $animal, $color;
	
	$animal{$sample}{$animal}++;
	$color{$sample}{$color}++;
}

for my $entity (\%animal, \%color) {
	my @samples = sort keys %$entity;
	my $tb = Text::Table->new( map {title => $_}, " ", @samples);

	my %seen;
	my @keys = grep $_ && !$seen{$_}++, map keys %$_, values %$entity;
	
	for my $key (@keys) {
		$tb->load( [$key, map $entity->{$_}{$key} || 0, @samples] );
	}
	
	print $tb;	
	print "\n\n";
}

##</code><code>##

C:\Old_Data\perlp>perl t4.pl
     A B C
bear 6 2 6
wolf 4 7 5


      A B C
white 1 0 1
black 1 0 1
brown 3 1 4
red   1 1 0
grey  1 5 3