sub counter { state $count = 0; $count++; }