Use of uninitialized value $one in say at ./strict.pl line 10.