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