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"; }
2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
|