foreach (keys %NewRFactorAverageHash) {
	$RScale = $NewRFactorAverageHash{$_};
	$F = 0;
	$BBEL = 0;
	$AR = 0;
	$VL = 0;
	print ("original key is $_\n");
	@LaL = split (/$;/, $_);
	print ("new key is @LaL\n");
}