I just couldn't resist it... When I saw they used fingers to count, I immediately thought of counting candles...

my @numbers                 =
                            (
                          ['|'] ,
                        ['|','|'] ,
                      ['|','|','|'] ,
                    ['|','|','|','|'] ,
                  ['|','|','|','|','|'] ,
                ['|','|','|','|','|','|'] ,
              ['|','|','|','|','|','|','|'] ,
            ['|','|','|','|','|','|','|','|'] ,
          ['|','|','|','|','|','|','|','|','|'] ,
        ['|','|','|','|','|','|','|','|','|','|'] ,
                           ) ;
                         foreach
                      ( @numbers )
            { print scalar @$_; print "\n"; }
[download]

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]