use SuperSplit;

$AoA = supersplit_open('|','\n',$filename);

no strict;
for $line ( @AoA ){
  $ecl_hash->{$line[0]}->{$line[1]}->{$line[2]}=@line[3..$#line];
}
my $sub_ecl = $ecl_hash->{$NETID}->{$date};
some_function( $sub_ecl->{$time} ) for $time (keys %$sub_ecl);