Something

$facilities is hashref return by XMLin from XML::Simple. Original XML is of the form
<facilities>
<facility>
<name>foo</name>
<latitude>180</latitude>
<longitude>180</longitude>
</facility>
<facility>
<name>bar</name>
<latitude>0</latitude>
<longitude>0</longitude>
</facility>
</facilities>

$currentEvent is another hashref from XMLin original XML is of the form
<inMesg>
<msg>
...
<latitude>180</latitude>
<longitude>180</longitude>
...
</msg>
</inMesg>