$ perl -Mstrict -Mwarnings -E '
    my %input;
    while (<>) {
        push @{$input{$_->[1]}} => $_->[0] for [split];
    }

    for (sort { $a <=> $b } keys %input) {
        say "Tableid: $_";
        print q{Player: };
        say for @{$input{$_}};
        say q{Total: }, scalar @{$input{$_}};
    }
'
kapp2cape1111 224
kapp2cape1113 224
kapp2cape1112 224
kapp2cape1111 225
kapp2cape1113 225
kapp2cape1112 225
Tableid: 224
Player: kapp2cape1111
kapp2cape1113
kapp2cape1112
Total: 3
Tableid: 225
Player: kapp2cape1111
kapp2cape1113
kapp2cape1112
Total: 3