Help for this page

Select Code to Download

Select or download this

while(<FILE>)
{
#  chomp;
...
  $Data->{$_[1]}->{$_[3]}++;
  }
}

Select or download this

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