I guess the way I'd do it is with an array that holds the necessary information. I'd loop over it until I found a matching set of low/high values. 
{
  # these are only visible to the function
  my @settings = (
    [ (0,0), "red", "E = 0" ],
    [ (1e-99, 1e-90), "orange", "1e-99 < E < 1e-90" ],
    ...
  );

  sub color_and_msg {
    my ($boo, $tab, $balloon) = @_;
    my ($color, $msg) = ("black", "");

    for (@settings) {
      my ($low, $high, $c, $m) = @$_;
      if ($low <= $boo and $boo < $high) {
        ($color, $msg) = ($c, $m);
        last;
      }
    }

    my $frame = $tab->Label(
      -bg => $color,
      -relief => 'sunken',
      -width => 10,
    );

    $balloon->attach($frame, -balloonmsg => $msg)
      if $msg;

    return $frame;  # if you need it
  }
}

[download]
This function would be called like so: 
my $frame = color_and_msg($boo, $tab, $balloon);

[download]
and it does all the work, in a far more compact fashion.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

In reply to Re: slow code help by japhy
in thread slow code help by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.