if($cond->{Par} =~ /^K(\d+)/) { my $qqq = scalar(@{$this->{N}}); $testedNVal = $this->{N}[$1]{Val}; # freak line unless($qqq == scalar(@{$this->{N}})) {print 'how is this possible ?';<>;} }