my @keys  = sort keys %upload;
my $group = 0;

while (my @group = splice(@keys, 0, 20)) {

  $group++;


my $url = "http://sulfericacid.perlmonk.org/gallery/galleryprint2.pl";
  print qq(<a href="$url?page=$group">$group</a><br>\n);

}