use XML::Simple;

my $monk = XMLin('./monk.xml', 
  keyattr => {val => 'val1'}, 
  forcearray => ['val']
);

if($monk->{vals}->{val}->{FOO}) {
  print $monk->{say}, "\n";
}