my $session_data = session->read('oauth');
say "Roles:";
print  Dumper $$session_data{azuread}{login_info}{roles};