# @date, @provider, @description, and @page are defined 
# elsewhere.

my @indices = sort { $date[$a] <=> $date[$b] ||
                     $provider[$a] cmp $provider[$b] ||
                     $description[$a] cmp $description[$b] ||
                     $exhibit[$a] cmp $exhibit[$b] ||
                     $page[$a] <=> $page[$b] } 
              (0..$#date);

@date = map { $date[ $_ ] } @indices;
@provider = map { $date[ $_ ] } @indices;
# etc etc...