foreach my $file (glob "/tmp/somedir/file*.xml") {
   print "<$file>\n";
}