sub counter{
    my $self = shift;
}