Select Code to Download

#!/usr/bin/perl -w
use strict;
...
foreach (sort keys %containers) {
    print "Container $_ has ".@{$containers{$_}}." keys.\n"
}

my %containers;
while (my ($k, $v) = each (%HoA)) {
...
foreach (sort keys %containers) {
    print "Container $_ has $containers{$_} keys.\n"
}