use 5.012;

sub foo {
  for my $elt (@_) {
    state $ctr++;
    say "$ctr/$elt";
  }
}

foo qw(a b c);
foo qw(d e f);