Help for this page
#!/usr/bin/perl ... } print "highest count is $#best for the number $best[-1]\n";
highest count is 3 for the number 2