foreach (@string_array){	
		@string=split(//,$_);
		$basecount=0;
		foreach $pos (@string){	
			$basecount++;
			$pos_score=ord($pos)-33;
			@temp_array=$base_stat{$basecount};   # line 124
			push (@temp_array,$pos_score);
			$base_stat{$basecount}="@temp_array";
		}