use File::Find::Rule qw/ find /;
my @spielfiles = find( file => maxdepth => 1, in => $spielpath );

Modern Perl a loose description of how experienced and effective Perl 5 programmers work....You can learn this too., Chapter 9. Managing Real Programs, Directories and Paths, Manipulating Paths