# The skeleton of each player hash
my %skeleton_player = (
	"team_side"    	=> "0",
	"frags"		=> "0",
	"deaths" 	=> "0",
	"suicides"	=> "0",
	"dmg_done"	=> "0",
	"dmg_received"	=> "0",
	"team_damage"	=> "0",
	"team_kills"	=> "0",
);

my %players = ();
		
my @file = <>;

foreach(@file){
	# Deletes the time information from each log line
	$_ =~ s/L [0-9]+\/[0-9]+\/[0-9]{4} - [0-9]+\:[0-9]+\:[0-9]+\: //g;



	# Creates a hash of a hash for players
	#
	# And Copies %skeleton_player to it
	#
	# %players
	#    - %player 1
	#	-frags
	#	-deaths
	#	-etc..
	#    - %player 2
	#	-etc..

	if($_ =~ m/"(.*)<.*><.*><.*>" entered the game/){
		unless(exists $players{$1}){
			$players{$1} = %skeleton_player;
		}
	}