while($file = lc(readdir DIR))
{
  if($file =~ /\.log$/)
  {
    $filesize{$file} = -s $file;
  }
}