my @keys = qw/name score date comment/;

my @game;
@{$game[@game]}{@keys} = split /,/ for @scores;