Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 3.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 3.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 3.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 4.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5.
Odd number of elements in anonymous hash at HoH.pl line 69, <$TABLE> line 5. 

##</code><code>##

ProFam_645021567	(645021567),7.5e-206,682.6	(643773583),0.00018,21.7	(643372890),0.00031,21.0	
ProFam_645021568	(645021568),0,1218.3	(646523692),8.7e-59,200.0	(649985079),1.9e-54,185.7	(643773996),7.5e-54,183.7	(643531652),3.4e-51,175.0	(638130252),3.5e-51,174.9	(637982001),8.8e-51,173.6	(648039431),5.1e-48,164.5	(643372781),8.4e-48,163.8	(648040011),2.2e-47,162.4	(643772569),2.5e-47,162.2	(650562740),9.4e-19,67.9	(638132465),0.00036,19.8	
ProFam_645021569	(645021569),3.2e-261,866.1	(650562741),6.2e-47,161.1	(646523691),4.9e-43,148.3	(643772570),1.8e-42,146.4	(648040010),4e-41,142.0	(649985056),2.7e-38,132.6	(637982002),1.5e-36,127.0	(638130253),1e-32,114.3	(643372785),1.3e-32,114.0	(643528419),5.3e-22,79.0	(648043902),1.1e-07,31.9 

##</code><code>##

my %HoH;

	open (my $TABLE,"<", "table") || die$!;

	while (<$TABLE>)
	{
	my $line = $_;
	chomp $line;

		if ($line =~/^ProFam/)
		{
		my @target = ();
		@target = split('\t', $line); #splits proteintable based on tabs
		my $name = $target[0]; #stores the protein family name
		shift (@target); #shifts the protein family name off the top of the name

			foreach my $p (@target)
			{
				#cut up $p
				if ($p =~/\(([\d]+)\)\,(.*)/)
				{
				$HoH{$name}{$1}={$2};
				}
			}
		}
	}