DB<124> sub scal {return scalar @_ } DB<125> print scal ( (1,2) x 5 ) 10