foreach my $thing (@stuff) {

    my $counter = 1;



}

sub foo {

}