while() { chomp; @_=split(','); $Data->{$_[1]}->{$_[3]}++; }