if (exists $uat->{$key}{$inrole}) {
    print $uat->{$key}{$inrole};
}
else {
    for my $role_key (keys %{$uat->{$key}}) {
        print $role_key if $uat->{$key}{$role_key} eq $value;
    }
}