my $group= ( $db->group( -user => $user ) )[0];
# or
my( $group )= $db->group( -user => $user );