my $map = XMLin($file, forcearray => ['header', 'act'], keyattr => {});

my $headers = $map->{header};
foreach my $header (@$headers) {
  if($header->{name} eq $head) {
    foreach my $act ( @{$header->{act}} ) {
      print "act: $act\n";
    }
  }
}