my %user_to_name = map { $_->id => $_->name } $self->result_source->schema->users->all;
- say STDERR join "\n\n", @problems;
my @st = sort { $b->{score} <=> $a->{score} or $a->{user} cmp $b->{user} } map { ## no critic (ProhibitReverseSortBlock)
my $user = $_;
+{