avoid perl's silly arguement not numeric error