opendir(DIR, $directory) or die $!; my @files = grep { /^\w{3}\d*:log.$date$/ } readdir(DIR); my %fileHash; %fileHash = map { /^(\w{3}\d*):log.$date$/; ($1 => $_) } @files; closedir DIR;