opendir(DIR, $directory) or die $!;

my %fileHash = map { (/^(\w{3}\d*):log\.$date$/ => $_); }
               grep /^\w{3}\d*:log\.$date$/, readdir(DIR);

closedir DIR;