subtest("A", 1..3);

sub subtest($$) {
   my ($arg1, $arg2) = (shift, shift);

   # ...

   for my $i ($arg2) {
      # sollte jetzt von 1 bis 3 laufen....