my $pattern = '.+\.xls';
my @files;

find( \&wanted, @dirs ),

sub wanted {
  # nur den Dateinamen überprüfen
  if ( $_ =~ m/^$pattern$/ ) {
    # kompletten Pfad zur Datei merken
    push @files, $File::Find::name;
  }
  return;
}