%pages = (
  'page1' => 2,
  'page2' => 24,
  'page3' => 8,
);

foreach my $loc (sort {$pages{$b} <=> $pages{$a}} keys %pages) {
  my $s = "s" unless $pages{$loc} == 1;
  print "$pages{$loc} user$s accessing $loc\n";
  ...
}