foreach $element( sort keys %count) {
my $a_total= sprintf "%.2f", ($count{$element}/$total_count)*100;##################$ELEMENT###################################
print "| $element | T. Number of Visits = $count{$element}\n";
print " | \n";
print "$a_total% | \n";
}