$ perl -E '
    my @a = qw{HRT RD WR LL DC};
    say "bins $a[$_] = {", $_, "};" for 0 .. $#a;
'
bins HRT = {0};
bins RD = {1};
bins WR = {2};
bins LL = {3};
bins DC = {4};