День добрый. При попытке посчитать переменную в perl вываливается ошибка. Подскажите как побороть.

Operation "-": no method found, left argument in overloaded package XML::XPath::Literal, right argument has no overloaded magic at ./test.pl line 40.

line 40: my $a=$b-1;