use strict;
use warnings;
use Class::Struct;

struct MyStruct => {
   'Counter' => '$',
   ...
}

my $x = MyStruct('Counter', 0);

$x->Counter++;

# of course i could always do the following:
$x->Counter( $x->Counter + 1 );