If you want others to make use of this, try formatting it as a program file instead of a one liner. Also, I'd suggest changing print to printf almost everywhere (be consistent, unless printf is overkill).

Using open without checking for errors is asking for trouble. If you were going to do a one liner, why not use the -n option in perlrun? For a script as small as this, pass the input file on the command line, and use the while (<>) magic.

Many medications come in different concentrations, so comparing pill counts is still misleading. Why not expand your thinking a bit and give 2 sets of inputs, one the presribed daily dosage in standard units (say milligrams of active ingredient), and the other input listing the packaging choices available? Then the script can output the list of most economical choices (assuming that all are equally safe and effective, of course).

-QM
--
Quantum Mechanics: The dreams stuff is made of

In reply to Re: Medicine monthly prices by dose calculator by QM
in thread Medicine monthly prices by dose calculator by chanio

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.