foreach $QB1(sort keys $Hash)
  {
  $QB1 = $points;
    foreach $QB2 (sort keys $Hash)
    {
    $QB2 = $points;
        foreach $RB1 (sort keys $Hash)
        {
        $RB1 = $points;
            foreach $RB2 (sort keys $Hash)
            {
            $RB2 = $points;
            }#end $RB2 foreach loop
         }#end $RB1 foreach loop
       }#end $QB2 foreach loop
    }#end $QB1 foreach loop