Use of uninitialized value in $test