Assuming that the data is sorted on the first field, how about:

while(<>) {
    my @a = split /,/;
    $files{pop @a} = @a;
}
[download]