# Note the braces to force list context on the left hand side
my ($roleid) = autocd::roles->search(rolename => $rolename);

##</code><code>##

my $role_iter  = autocd::roles->search(rolename => $rolename);
if (!$role_iter->count || !$username){
         return "";
      }
my $roleid = $role_iter->first;