opendir(DIR, "/opt/tmp/") or die "Cannot open dir";

@files = grep {"/opt/tmp/*.xml"} readdir DIR;