if ($element =~ m/\<td/){
				$element =~ s/^\<td>//;
				$element =~ s/\<\/td>$//;
				$element =~ s/[,]//g;
				next if ($element !~ m/^\d{1,3}\d{3}\d{3}/);
				push @stats, $element;
				
				
			}
			elsif ($element =~ m/\<h1>/){
				chomp $element;				
				$element =~ s/^<h1>//;
				$element =~ s/<\/h1>$//;
				push @id, $element;
				
			}
			

		}
		push @{$hash{$id}}, @stats;