#!/usr/bin/perl

# In the song "The 12 Days of Christmas,"
# how many gifts, total, did my true love give to me?
# And how many of each item?

for ($day=1; $day<=12; $day++)
{

if ($day>=1){$gavetome{'partridges'}+=1};
if ($day>=2){$gavetome{'turtle doves'}+=2};
if ($day>=3){$gavetome{'french hens'}+=3};
if ($day>=4){$gavetome{'calling birds'}+=4};
if ($day>=5){$gavetome{'golden rings'}+=5};
if ($day>=6){$gavetome{'geese a-laying'}+=6};
if ($day>=7){$gavetome{'swans a-swimming'}+=7};
if ($day>=8){$gavetome{'maids a-milking'}+=8};
if ($day>=9){$gavetome{'ladies leaping'}+=9};
if ($day>=10){$gavetome{'lords a-dancing'}+=10};   
if ($day>=11){$gavetome{'pipers piping'}+=11};
if ($day>=12){$gavetome{'drummers drumming'}+=12};

        $newgifts = $day;
        $totalgifts += ($newgifts + $repeatgifts);

                $repeatgifts += $newgifts;
}

print "After 12 days of Christmas, my true love had given me $totalgifts gifts \n";

while (($gift,$qty)=each(%gavetome))
{print "$qty $gift\n"};