open DATA, $filename;
my %ecl_hash;
my $str = "$NETID|$month/$date/$year";
while( <DATA> ){
  next if index($_,$str)<0;
  chomp;  
  my $item = (split '|' )[2];
  $ecl_hash{$item} = [] unless defined $ecl_hash{$item};
  push @$ecl_hash{$item}, $_;
}