# Populate container table
for my $calnum ( 0 .. $#cals ) {
my $row = int(my $calnum/4);
   $t->cell( 0, $calnum )->push_content( $cals[$calnum] );
}