foreach (<LOGFILE>){

 if (/^(.*?)*(.*?)*(.*?)*(.*?)*(.*?)*(.*?)*(.*?)*(.*?)$/gi){     #prin
+t starting at the date
       push (@logg,$1); }
}

    my %count;
    my $total_count;
   foreach my $element( @logg ) {     #4
    ++$count{$element};
    $total_count++;
   }

#Sort hash by its values
   foreach my $element (sort {$count{$a} <=> $count{$b}} keys %count){
       
       print "Name: $element<font color=red size=\"2\">Shows:<b>$count
+{$element}</b></font> times.<br>";

}