while (<>) {
        my @record = split /,/;
        my $key = shift @record;
        $list{$key} = \@record;
    }

##</code><code>##

    print join "\n", values(%list), '';