Select Code to Download

use strict;

...
                                            @#####.##
                                            $total
.

my %ytd = (
    foo => { d => [1,2], c => [3,4] },
...
    baz => { d => [9,1], c => [2,3] },
    qux => { d => [4,5], c => [2,4] },
);