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