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

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

   # ...

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