sub reset_all
{
    $x = undef;
    $counter = 1;
}