use File::Find;
use vars qw/*name/;
*name   = *File::Find::name;
find( sub { push @files, $name if -f && /mail.log.*/ }, '.');