It print a warning: Argument "ssb" isn't numeric in subtraction (-) at ...

Don't ignore the ... - in the real output there are line numbers there which give you important clues on what's going on. In this case it would have told you that you haven't showed us the relevant part of your code.

And if you use perl-5.10, it will tell you which variables are uninitialized.