$self->{st_select_authors}->execute($name, $firstname) or die  $self->{st_select_authors}->errstr;
     my $val_ar = $self->{st_select_authors}->fetchall_arrayref( {} );
     my $foundid;
     die Dumper $val_ar;
   #gives an empty array ref