while (my $matchingFiles = glob("*.rtsd001")) {
   ...
}