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

##</code><code>##

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