#!/usr/bin/perl -w
use strict;

chomp(my $file = <STDIN>);

my (@names,@winners,@losers,@draws);
open FILE, "$file" or die "Couldnt open: $!\n";
while(<FILE>){
	my($name1,$name2,$scores) = split(/ /,$_);
	push(@names,$name1,$name2);
	my($score1,$score2) = split(/\-/,$scores);
	if($score1 > $score2){
		push(@winners, $name1);
		push(@losers, $name2);
	} elsif($score1 < $score2){
		push(@winners, $name2);
		push(@losers, $name1);
	} else {
		push(@draws,$name1,$name2);
	}
}
close FILE;

my %nams;
for(@names){
	$nams{$_}++;
}

my %wins;
for(@winners){
	$wins{$_}++;
}

my %los;
for(@losers){
	$los{$_}++;
}

my %dra;
for(@draws){
	$dra{$_}++;
}

foreach my $in(keys %nams){
	$wins{$in} = 0 unless defined $wins{$in};
	$los{$in} = 0 unless defined $los{$in};
	$dra{$in} = 0 unless defined $dra{$in};
	print "Player: $in - Wins: $wins{$in} - Losses: $los{$in} -  Draws: $dra{$in}\n";
}