Re: generate array name through a variable value

[charles]

Here is my new code, and unfortunately, use strict; which i refuse to give
up is giving me one complaint. it seems pretty straight forward, but i am
not certain what do to about it.

The error:
Use of implicit split to @_ is deprecated at /root/bin/panelpasswd.pl line
19.

The code:
for $one(@domains) {
  open FH, $groupfile or die $!;
  while (<FH>) {
    @group = split /:/, $_;
    if ( $one eq $group[0] ) {
       $domain_i{$one} = \@{ split /,/, $group[3] };
    }
  }
  close FH;
  open FH, $passfile or die $!;
  open NH, ">/etc/htsec/$one.ht" or die $!;
  while (<FH>) {
    $line = $_;
    @entry = split /:/, $line;
    for $each( @{$domain_i{$one}} ) {
      chomp $each;
      if ( $each eq $entry[0] ) {
        print NH $line;
      }
    }
  }
  close NH;
  close FH;
}


thanks!!!