Perl Scripting Fun: Building an array of filenames

Using a script to count login activities in a KF log file. I wanted to effectively go through all the *.log?? files, ignoring zipped files. Finally settled on:

my $logpath="/var/log/kforum";
chdir($logpath) or die "$!";
@files = glob "*.log *.log.[0-9] *.log.[0-9][0-9]";