my @short_org_name = keys %myorgs;
        my $count=2;
        my $frame;
        foreach (@short_org_name)
        {
           my $score = $hits{$myorgs{$title_order{$count}}};

           if ($score eq "NoHit")
           {
              $frame = $tab->Label(-bg => 'black', -relief => 'sunken', width => 15);
              $balloon->attach($frame,-balloonmsg => "No Hits");
                         }
           else
           {
              if ($score == 0)
              {
                 $frame = $tab->Label(-bg => 'red', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "E = 0");
                 
              }
              if (1e-99 <= $score && $score < 1e-90)
              {
                 $frame = $tab->Label(-bg => 'orange', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-99 < E < 1e-90");
                 
              }
              if (1e-90 <= $score && $score < 1e-80)
              {
                 $frame = $tab->Label(-bg => 'gold', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-90 < E < 1e-80");
                 
              }
              if (1e-80 <= $score && $score < 1e-70)
              {
                 $frame = $tab->Label(-bg => 'yellow', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-80 < E < 1e-70");
                 
              }
              if (1e-70 <= $score && $score < 1e-60)
              {
                 $frame = $tab->Label(-bg => 'chartreuse', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-70 < E < 1e-60");
                 
              }
              if (1e-60 <= $score && $score < 1e-50)
              {
                 $frame = $tab->Label(-bg => 'green', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-60 < E < 1e-50");
                 
              }
              if (1e-50 <= $score && $score < 1e-40)
              {
                 $frame = $tab->Label(-bg => 'turquoise', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-50 < E < 1e-40");
                 
              }
              if (1e-40 <= $score && $score < 1e-30)
              {
                 $frame = $tab->Label(-bg => 'blue', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-40 < E < 1e-30");
                 
              }
              if (1e-30 <= $score && $score < 1e-20)
              {
                 $frame = $tab->Label(-bg => 'pink', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-30 < E < 1e-20");
                 
              }
              if (1e-20 <= $score && $score < 1e-10)
              {
                 $frame = $tab->Label(-bg => 'purple', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-20 < E < 1e-10");
                
              }
              if (1e-10 <= $score && $score < 1)
              {
                 $frame = $tab->Label(-bg => 'grey', -relief => 'sunken', width => 15);
                 $balloon->attach($frame,-balloonmsg => "1e-10 < E < 1");
                 
              }
           }