if ($dot > -1) {
    $extension = substr($filename, $dot+1);
    $extensions{$extension}++;
} else {
    $extensions{'_without_extension'}++;
}