my @range = (1..3);

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

   # ...

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



subtest("A", @range);