foreach @ECL_STAT {
  if (/^(\w+)/) {
    # The net id is $1...
    push @{$ECL_LOOKUP{$1}}, $_;
  }
}
# Time passes
foreach my $key (@totalkeys) {
  $NETID = $totalnetname{$key};
  @ECL_DATA = @{$ECL_LOOKUP{$NETID}};
  # etc
}