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