What are the values of $picwidth and $picheight that do and don't work?

When I wrapped it in a loop to try a handful of ratios, I couldn't find any that didn't. That's why How do I post a question effectively recommends providing actual code with data that evidences the problem.

use warnings;
use strict;
foreach my $picheight ( 10, 11, 13, 1000 ) {
    foreach my $picwidth ( 10 .. 20, 1501 ) {
        my $ratio = $picwidth / $picheight;
        my $backcolor;
        if ($picwidth / $picheight > 1.5) {
            $backcolor="#f5f5f5";
        } else {
            $backcolor="#ffffff";
        }
        my $color1 = ($picwidth / $picheight > 1.5) ? '#f5f5f5' : '#ff
+ffff';
        my $color2 = ($ratio > 1.5) ? '#f5f5f5' : '#ffffff';
        local $, = "\t";
        local $\ = "\n";
        print $picwidth, $picheight, sprintf('%8.3f',$ratio), $backcol
+or, $color1, $color1, ($backcolor eq $color1 ? 'EQ' : 'ERR'), ($color
+2 eq $color1 ? 'EQ' : 'ERR');
    }
}

[download]

OUTPUT:

10      10         1.000        #ffffff #ffffff #ffffff EQ      EQ
11      10         1.100        #ffffff #ffffff #ffffff EQ      EQ
12      10         1.200        #ffffff #ffffff #ffffff EQ      EQ
13      10         1.300        #ffffff #ffffff #ffffff EQ      EQ
14      10         1.400        #ffffff #ffffff #ffffff EQ      EQ
15      10         1.500        #ffffff #ffffff #ffffff EQ      EQ
16      10         1.600        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
17      10         1.700        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
18      10         1.800        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
19      10         1.900        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
20      10         2.000        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
1501    10       150.100        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
10      11         0.909        #ffffff #ffffff #ffffff EQ      EQ
11      11         1.000        #ffffff #ffffff #ffffff EQ      EQ
12      11         1.091        #ffffff #ffffff #ffffff EQ      EQ
13      11         1.182        #ffffff #ffffff #ffffff EQ      EQ
14      11         1.273        #ffffff #ffffff #ffffff EQ      EQ
15      11         1.364        #ffffff #ffffff #ffffff EQ      EQ
16      11         1.455        #ffffff #ffffff #ffffff EQ      EQ
17      11         1.545        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
18      11         1.636        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
19      11         1.727        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
20      11         1.818        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
1501    11       136.455        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
10      13         0.769        #ffffff #ffffff #ffffff EQ      EQ
11      13         0.846        #ffffff #ffffff #ffffff EQ      EQ
12      13         0.923        #ffffff #ffffff #ffffff EQ      EQ
13      13         1.000        #ffffff #ffffff #ffffff EQ      EQ
14      13         1.077        #ffffff #ffffff #ffffff EQ      EQ
15      13         1.154        #ffffff #ffffff #ffffff EQ      EQ
16      13         1.231        #ffffff #ffffff #ffffff EQ      EQ
17      13         1.308        #ffffff #ffffff #ffffff EQ      EQ
18      13         1.385        #ffffff #ffffff #ffffff EQ      EQ
19      13         1.462        #ffffff #ffffff #ffffff EQ      EQ
20      13         1.538        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
1501    13       115.462        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ
10      1000       0.010        #ffffff #ffffff #ffffff EQ      EQ
11      1000       0.011        #ffffff #ffffff #ffffff EQ      EQ
12      1000       0.012        #ffffff #ffffff #ffffff EQ      EQ
13      1000       0.013        #ffffff #ffffff #ffffff EQ      EQ
14      1000       0.014        #ffffff #ffffff #ffffff EQ      EQ
15      1000       0.015        #ffffff #ffffff #ffffff EQ      EQ
16      1000       0.016        #ffffff #ffffff #ffffff EQ      EQ
17      1000       0.017        #ffffff #ffffff #ffffff EQ      EQ
18      1000       0.018        #ffffff #ffffff #ffffff EQ      EQ
19      1000       0.019        #ffffff #ffffff #ffffff EQ      EQ
20      1000       0.020        #ffffff #ffffff #ffffff EQ      EQ
1501    1000       1.501        #f5f5f5 #f5f5f5 #f5f5f5 EQ      EQ

[download]

In reply to Re^3: Dealing with rectangular images by pryrt
in thread Dealing with rectangular images by htmanning

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.