Select Code to Download

use Data::Dumper;
my (%Sales,%Years);
...

# Less useful, but more obvious than messing with $;
++$count->{"$sale_name : $fy"}; # fy = Fiscal Year