Just provide labels:

my @tests = (
  [one => \&test1],
  [two => \&test2],
  ...
  [twenty => \&test20],
);
for my $label_code_pair (@tests) {
  my ($label, $code) = @$label_code_pair;
  print STDERR "running $label\n";
  $code->(...);
}
[download]