A. millefolium 'Summer Wine' 1 gal ##

##

%form = (
          'IT3' => '6.99',
          'I0' => '0',
          'I3' => '3',
          'Q3' => '1',
          'P0' => '3.95',
          'IT0' => '129.05',
          'P3' => '6.99',
          'Q0' => '40',
          'IT10' => '36.50',
          'P10' => '3.65',
          'I10' => '10',
          'Q10' => '10'
            <... snip>
        );

##

##

foreach(sort keys %form) {
   print "$_ $form{$_} \n";
   }

##

##

I0 0
I10 10
I3 3
IT0 129.05
IT10 36.50
IT3 6.99
P0 3.95
P10 3.65 ...

##

##

\t "I[" . 0 . "]" .... "I[" . 570 ."]"

##

##

%form = (
          'I0' => '0',
          'Q0' => '40',
          'P0' => '3.95',
          'IT0' => '129.05',
          'I3' => '3',
          'Q3' => '1',
          'P3' => '6.99',
          'IT3' => '6.99',
          'I10' => '10',
          'Q10' => '10'
          'P10' => '3.65',
          'IT10' => '36.50',
            ...
          'IT647' => 741.34
        );