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