sub updateUser{
        my $self = shift;
        my $pRef = shift;

        my $dbh = $self->{'dbh'};
        my $count;
        my @query_result;

        eval{
                $count = $dbh->do("
                UPDATE smart_model.benutzer
                SET
                 nachname = '$pRef->{'nachname'}', vorname = '$pRef->{'vorname'}',
                 telnr = '$pRef->{telnr}',sprache = '$pRef->{'sprache'}', aktiv = '$pRef->{'aktiv'}',
                 permission = $pRef->{'permission'}, lastLogin = $pRef->{'lastLogin'}
                 WHERE id = '$pRef->{'id'}';");
        };

warn "pRef: ", ref( $pRef )," / ", $pRef, $/;

pRef: REF / REF(0x182f1d0)