Add number example (perl)