while (<FILE>) {
my @a = split /,/;
$hash{$a[3]}{$a[4]}++;
}