my @files = map { s/\.xml$//; $_ } glob('*.xml');