sub new {
    
    my ($class, $arg_ref) = @_;
    
    my $new_object = bless anon_scalar(), $class;
    
    $random_number_of{ident $new_object} = int(rand(10000));
    
    ### insert known parameters
    $known_parameters_of{ident $new_object} = $arg_ref->{parameters}; #####
        
    
    return $new_object;
    
}