if (($fname =~ /\./) && !($fname =~ /\.$/)) {
    $fname = lc($fname);
    @temp= split(/\./, $fname);
    $hash{$temp[-1]}++;
  }
  else {
    $hash{"no ext"}++;
  }

##</code><code>##

    if ($#temp >0)
        {$hash{@temp[-1]}++}
    else
        {$hash{""}++}