$TotalMatchesHash{$F,$BBEL,$AR,$VL} = $MatchCount;

##</code><code>##

original key is 5<fs>19<fs>56<fs>46

##</code><code>##

foreach (keys %NewRFactorAverageHash) {
	$RScale = $NewRFactorAverageHash{$_};
	print ("original key is $_\n");
	@LaL = split (/<fs>/, $_);
	print ("new key is $LaL\n");
    $F = $LaL[0];
    $BBEL = $LaL[1];
    $AR = $LaL[2];
    $VL = $LaL[3];
}