You need to declare the variable lexically with my:

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

You can test this by printing out the array references; they should all have different addresses:

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