sub p1 {
    our $persistant;  $persistant = "init" unless defined $persistant;
   
    $persistant .= ".";

    return $persistant.
}