print qq[found "$_" $exts{$_} times],$/ for sort keys %exts;