Select Code to Download

use SuperSplit;

...
}
my $sub_ecl = $ecl_hash->{$NETID}->{$date};
some_function( $sub_ecl->{$time} ) for $time (keys %$sub_ecl);

open DATA, $filename;
my %ecl_hash;
...
  $ecl_hash{$item} = [] unless defined $ecl_hash{$item};
  push @$ecl_hash{$item}, $_;
}