Error with XML::XPath::Literal

Select or download this

sub RainSoFarMessage{

...
       }
           return $total;     
 }

Select or download this

my $monthrs = 2;
my $totalrs = RainSoFarMessage($monthrs);
...

push @RainSoFarMesg,$monthrs,$totalrs;
#print "\n@RainSoFarMesg";

Select or download this

Operation `+': no method found,
    left argument has no overloaded magic,
    right argument in overloaded package XML::XPath::Literal at C:\..\
+..\xmlrecord_parse.pl line 480.

Tool completed with exit code 255

Select or download this

weather_records.xml

...
  <totalrainfall unit="mm" number="0.5" /> 
  </MonthlyWeatherRecord>
  </AnnualWeatherRecord>

Select Code to Download