Select Code to Download

use strict;
use warnings;
...
    ) {
        print $_->[-1], " score = ", $_->[0], "\tgame = ", $_->[1], "\
+n";
}

abraham score = 12      game = Soccer
bertha score = 10       game = Pool
charly score = 8        game = Basketball