local $_;
for(readdir DIR) {
    $filesize{$_} = (stat($_))[7] if /\.log$/i;
}