use Test::More qw( no_plan ); is_deeply [ jeffa( ) ], [ over2sd( ) ], ; is_deeply [ jeffa( 10 ) ], [ over2sd( 10 ) ], ; __END__ Use of uninitialized value $agemin in int at foo.pl line 37. ok 1 ok 2 1..2