Select Code to Download

say "month are @month";

month are ARRAY(0x1fa34e0) ARRAY(0x1fa3678) ARRAY(0x1fa41d0) ARRAY(0x1
+edd548) ARRAY(0x1edd5f0) ARRAY(0x1edd698)

use Data::Dumper;
say Dumper \@month;

$VAR1 = [
          [ undef, undef, undef, undef, undef, undef, 1 ],
...
          [ 23, 24, 25, 26, 27, 28, 29 ],
          [ 30, undef, undef, undef, undef, undef, undef ]
        ];

foreach (@month) {
  say join " ", @$_;
}

( undef, 2, 3, 10 )

( '   ', ' 2 ', ' 3 ', '10 ')

foreach (@month) {
  say map { 
...
        }
    } @$_;
}

my $font = $pdf->ttfont('DejaVuSans.ttf');