#!/usr/bin/env perl6
use v6;

my $file = open 'scores';
my @names = $file.get.words;

my %matches;
my %sets;

for $file.lines -> $line {
    my ( $pairing, $result ) = $line.split( ' | ' );
   
    my ( $p1, $p2 ) = $pairing.words;
    my ( $r1, $r2 ) = $result.split( ':' );

    if $r1 > $r2 {
        %matches{$p1}++;
    }
    else {
        %matches{$p2}++;
    }
       
    my @sorted = @names.sort({ %sets{$_} });
    @sorted   = @sorted.sort({ %matches{$_} });
    @sorted   = @sorted.reverse;
    
    for @sorted -> $n {
        say "$n has won %matches{$n} matches and %sets{$n} sets";
    }
}