in reply to Loading a HoH

This is untested but should break you out of the loop: 
...

foreach my $regex(@LineRegexs){
    if($line=~$regex){
      $hash{$count}{$1}=$2;
      $hash{$count}{$3}=$4;
      last;  
    }
    next;
}

...

[download]
As last will break you out of the innermost enclosing loop which in this case is the foreach.

Replies are listed 'Best First'.
Re: Re: Loading a HoH
by tadman (Prior) on Oct 11, 2002 at 16:19 UTC
    As a note, calling next is rather redundant since it's the last thing in the loop. All that does is restart the loop, which was going to happen anyway.
[reply]
[d/l]

In Section Seekers of Perl Wisdom