my $doc = $xs1->XMLin($file, keyattr=>[], ForceContent=>1, ForceArray=>1);

for my $attribs ( @{$doc->{B}[0]{C}[0]{element}} ) {
  print "$_: $attribs->{$_}\n" for keys %$attribs;
}