print +{map @$_{qw(firstname lastname)}, values %uid}->{Alice};